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Black System a l'honneur de 

vous présenter SHOOT. Ce jeu, 

entièrement en langage 

machine, est composé 

de trois fichiers . 



- SHOOT .BAS, le Loader Basic, 

- SHOOT1 .BIN, les dessins et 

- SHOOT2 .BIN, le programme 

Le fichier DATAS 1. BAS crée le fi- 
chier binaire SHOOTl.BIN. Le fichier 



Shoot 



Luc & Hervé GUILLAUME 



Valable pour CPC 464, CPC 664 
etCPC6128 



DATAS2.BAS crée le fichier binaire 
SHOOT2.BIN, lorsqu'ils sont lancés par 
RUN. 

Vous devez effectuer neuf tirs aux 
buts. Pour marquer, vous pouvez soit tirer 
à gauche soit à droite. Vous avez aussi 
la possibilité de tirer tout droit mais vous 
ne tromperez personne. 



Pour commencer la partie, appuyez 
sur FTRE. La pause s'obtient par l'intermé- 
diaire de la touche RETURN. L'abandon 
s'effectue par la touche ESC. Le joystick 
est obligatoire. 

Voici les positions de la manette pour 
tirer dans les trois directions : 



Gauche 



Tout droit 



Droite 




10 ' 
20 ' 


si 


fRllftfil»ltï»ï»«»*ttïlttlllt*lf 


30 ' 




SHOOT II 


40 ■ 




1» 


50 ' 




Luc and Hervé Guillaulie ** 


60 ' 




Black Systea 1990 *» 


70 ' 




IX 


80 ' 


t«l»t««ftX*«XXtlXt*X*Ht*fttt*)ttX« 


90 ' 




100 HEH0RY 19999 


110 L0AD" 


SHOOTl.BIN', 20000 


120 L0AD" 


SH00T2.BIN". 30000 JÊÊ 


130 CA 


J. 30000 



>LA 
>LB 
>LC 
>U) 
>LE 
>LF 
>LC 
>LH 
>U 
>LT 
>WE 
>UH 
>HH 




« DATAS 1 

20 ' DATAS pour SHOOTl.BIN 
30 ' 

40 H0DE 2:AD=IC000:NL=110 
50 FOR B=l T0 298:T0T=0:FOB T=0 T0 14:READ Ai 
60 P0KE AD,ÏAL("l"tA»):T0T=TOTtPEEKiAl)):AD=AD)l 
70 NEXTlREAO S0H*:IF ÏAL(«t*tS0M*K>T0T THEN 90 
80 NL=NL»10:llEXT:SAVE"SHOOTl.BiN\B,tCûûû,Mi6E;CLS:END 
90 CLS:L0CATE 1, 1 :PS1MT"LIGNE" ;NL; " INCORRECTE" :END 
100 ' 

110 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,000 
120 DATA 00, 00, 00, 00,00,00,00,00,00, 00,51, 00,11, 00, 41, 0A3 
130 DATA 00,00, 51, 00, 51, 00, 54,00, 54,00,11, 00, 11,00, 00.16C 
140 DATA 00,11, 00,F3,A2,28,A2,2A, 28,88, 2A,B8,88,9B,38,5A4 
150 DATA CC, 88,00, 00, 51, 00.F3.00, 14,00,15, 00,44,00,64,369 
160 DATA 20,CC,88,00,00,F3,A2,2B,A2,ÛO,28,CC,2A,B8,00,579 
170 BATA 9B,88,CC,38,00,00,F3,A2,28,A2,00,2B,44,2A,00,569 
130 DATA 88,98,88,CC,68,00,00,A2,00,2B,00,2A,A2,8B,28,542 
190 DATA CC,2A,30,BB, 00,88,00,00, F3,A2,2B,28,2A,00,6E,4B3 
200 DATA 88, 00, 88, 9S,88,CC,SB,00, 00, F3.A2.A2, 23,28,00, 60B 
210 DATA 6E,8e, 88,88, 98,88.CC,B8,00,00,F3,A2,2B,A2, 00,609 
220 DATA 28, 00, 2A, 00,38,00,88, 00,88,00,00, F3,A2,28,A2, 449 
230 DATA 2A,28,CC,2A, 88,88,98, 88, CC,88,00, 00, F3,A2,28, 689 
240 DATA A2,2A,28,CC,2A,00, 88,98, 88,CC,8B,00,00,00,00,4E6 
250 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,000 
260 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,000 
270 DATA 00,AA,55,08,AE,OA,OD,A2,AE,OA,55,08,00,AA,00,42D 
280 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,000 
290 DATA 00, 00, 00,00,2A, 00,88,00,20,00, 00,00,2A,00, 88, 184 
300 DATA 00,20,00,00,00,00,00,00,00,00,00,00,00,00,00,020 
310 DATA 00, 00, C0,C0,00, 00,00,00, 00,00, 00,00,00,00,00,180 
320 DATA 00,00,00,CO,CO,F3,A2,A8,A2,A8,A8,22,A8,33,22,6CE 
330 DATA 63,22,22,22,00,00,F3,A2,A2,A2,A8,A8,B9,00,22,5CD 
340 DATA 22,22,22,33,22, 00, 00,F3,A2,A2,A2,A2,00,A8,00,4DE 
350 DATA AB,82,63,22,33,22,00,00,F3,00,A2,A2,A8,A2,A8,62D 




360 DATA A8, 22, A8, 63, 22, 33, 82, 00 
370 DATA FC.00, 22,00,63,82,33,22 
380 DATA 00,E9, 00,33,00,22,00,22 
390 DATA A8,00,A8,A8,22,A8,63,22 
400 DATA A2,A8,A8,33,AB, 22,22,22 
410 DATA 51,00,54,00,54,00,11,00 
420 DATA A2,00,A2,00,A8,00,A8,00 
430 DATA A2,A2,A8,A2,A8,A8,33,00 
440 DATA 00,A2,00,A2,UU,Ab,00,Atl, 
450 DATA 00,00,A2,A2,F9,A2,A8,A8. 
460 DATA 22,00,00,F3,A2,A8,A2,A8 
470 DATA 22,22,00,00, F3,A2,A8,A2 
480 DATA 22,33, 22,00,00, F3,A2,A8 : 
490 DATA 22,00,22,00, 00,00,F3,A2 
500 DATA 22,33,22,93,82,00,00,F3 
510 DATA 33,00,63,22,22,22,00,00 
520 DATA 22,00,22,63,22,33,22,00. 
530 DATA 54,00,11,00,11,00,11,00. 
540 DATA A8,22,A8,22,22,63,22,33 
550 DATA AB,A8,22,AB,63,22,11,00 
560 DATA A2,A8,A8,22,A8,63,22,33 
570 DATA AB,A2,A8,A8,U, 00, 63,22 
580 DATA A2,AB,A2,A8,A8,63,A8,33 
590 DATA F3,A2,A2,A8,00,A8,11,00 
600 DATA 00,00,FF,FF,FF,00,55,AA 
610 DATA 55,FF.FF,00,00,FF,FF,AA 
620 DATA OC,AA,55,OC,OC,5D,00,AE 
630 DATA 51,OF,OC,OD,O0,OD,0A,0F 
640 DATA OF.OF, 08,04,0F, 0F,O£,50 
650 DATA 0A,05,5A,A5,OF,OO,0F,FO 
660 DATA FI, 00,55, OO,5A,A2,5A,A0 
670 DATA FO,AO,05,FO,F2,FO,04,OF 
680 DATA 50,F3,50,F1,00,F1,AO,F1 
690 DATA 5A,A2,00,F3,F2,F1,A2,51 
700 DATA A2,00,51,F2,00,00,FF,58 
710 DATA F2,51,F3,00,F3,A0,F3,A0 
720 DATA F1,00,F3,A6,F3,A0,51,F2 
730 DATA 00,51, F2,00,51,A2,50,F3 
740 DATA 51,A5,00,F1,A0,F0,0A,00 
750 DATA 00,5A,A0,0F,A0,50,F3,F3. 
760 DATA 50,F1, 00,05, F0,F0,A5,00 
770 DATA A5,00,5A,FO,FO,OA,00,05 
780 DATA OD,OA,OF,08,04,0F,OF,0E 
790 DATA OF,00,55,OC,OC,5D,00,AE 
800 DATA 00,AE,OC,OC,AA,OO,55,0C, 
810 DATA AA,FF,AA,O0,FF,FF,AA,00 
820 DATA 00,6E,71,CF,8E,AA,3D, 
830 DATA 8A,F3,79,F3,DB,A2,79,F3 
840 DATA 8A,9D,79,F3,4D,A2,6E,7B 
850 DATA 08,64,3E,79,AE,8A,30,9C 
860 DATA A2,DB,6E,E6,7B,8A,4D,B7 
870 DATA 88,6E,AE,BE,EE,2A,E7,4D 
880 DATA 2A,8C,DB,59,BE,88,4D,B7 
B90 DATA 8A,B7,98,B2,9D,A2,F3,63 
900 DATA A2, 63, FI, 3F, El, 22, 02,79 



00,F3,A2,A2,00,A8,00,58B 
00,00,F3,A2,A2,00,A8,537 
00,00,00,F3,A2,A2,A2,439 
33,22,00,00,A2,A2,A8,588 
22,22, 22,00,00, F3,A2,52E 
93,B2,33,22,00,00,51,2C5 
22,63,22,33,22,00,00,390 
63,22,22, 22, 22. 22, 00, 51E 
00,22,00, 63, 82, 33, 22.3FÛ 

io ta V, T> lO T, 01 en 
*.t, AD, i-i-, i-i-, i-i., ^, ^4-, ~jRO 

A8,22,A8,22,22,22,22,5A3 
A8,A8,22,A8,22,22,63,SE4 
A2,A8,A8,22,A8,33,22,5C5 
AB,A2,AB,AB,22,A8,63,5A0 
A2,A8,A2,AB,A8,22,A8,685 
F3,A2,A2,A2,A8,00,B9,536 
00, F3,A2,51, 00,54,00,358 
00,0O,A2,A2,AB,A2,AB,3BD 
22,00,00, A2,A2,AB,A2,51E 
11, 00,00,00, A2,A2,A8,4AD 
22,22,22,00,00, A2,A2,51E 
22.22,22,22,00,00,A2,45A 
22, 11,00, 11, 00, 00,00, 4BE 
22,00,63,22,33,22,00,494 
FF,00,00,FF,FF,AA,00,7A3 
55,F1,F2,F1,00,AE,08,BDA 
0C,0C,AA,55,0C,0C,6D,3BA 
08, 04,0F, OF,OE,00,OD,OE4 
A7,FF,AE,00,0F,A0,0F,3BB 
A5,0A,O5,5A,FO,0F,05,42E 
05,F1,A7,FO,00,5A,F1,714 
F1,00,00,F1,F3,FO,A2,8E1 
A2,O0,50,F2,0O,55,OC,74B 
F2,50,F3,O0,F3,A0,F3,980 
F3,00,F3,A5,F3,A2,51,7AD 
00,51, F2,00,00,00,AF,74E 
51,F2,00,F3,A0,F2,A0,9C8 
00,F1,F7,F2,OA,51,F2,7AO 
50,F2,00,50,F3,F3,F2,7EB 
5A,00,F0,F3,A7,A0,00,763 
0F,0A,F0,0A,O5,F0,F0,6C3 
FO, 00,04, 0F,0F,0E,00,40E 
00,0D,0F,0F, 08,00, 04, 095 
O8,0C,AA,55,0C,OC,5D,3OF 
00,00,FF,FF,AA,00,FF,578 
55,FF,FF,00,00,55,FF,8A2 
E7,E7,08,B6,7B,E7,F3,8DD 
F3,E7,A2,3E,F3,F3,DB,B4D 
F3,8E,6A,9D,9C,F3,4D,8EF 
K,FF, 08,87, 98, 82,90, 708 
9F,E7,0B,8C,DB,59,8E,8B6 
E7,4D,A2,6E,AE,8E,EE,8EC 
9F,E7,08,DB,6E,E6,7B,83C 
E1,73,A2,B3,D2,F0,93,A1E 
F3,7A,82,F0,3C,B6,7A,8CE 



910 DATA A0,FO,3F,3D,7A,AO,5A,9D,3F,D8,0A,87,64,CC,25,71A 
920 DATA 82,63,1A,30,E1,22,B3,B7,A5,93,A2,F3,63,4B,73,75A 
930 DATA A2,63,D3,E7,8E,AA,33,D3,E7,E7,08,B1,73,E7,F3,9D1 
940 DATA 8A,F2,73,F3,DB,A2,F1,F1,F3,E7,A2,72,F3,F3,DB,BF0 
950 DATA 8A,33,F1,F3,4D,A2,93,72,F3,8E,BA,63,33,F3,*D,B76 
960 DATA 08,93,93,F3,AE,8A,C3,63,F3, FF, 08, 00,00,00,00, 679 
970 DATA 00, 00,00,00, 00,00,51, 79, 79, A2,00, 15,3F, 3E,F3,36A 
980 DATA 00,44, CC, D9,F3,0O,lO,30,71,F3,A2,O0, 00,14, F3,629 
990 DATA 28,00,00,15, 3C,2A,00,00,44,3F,88,00,00,10,CC,28A 
1000 DATA 20,00, 00,00,30,00,51, A2,F3,F3,F3,B6,F3, 79, 79, 6B7 
1010 DATA 66,16, 29, 01, 02,33,33,33, 33,33,33,33, 33,33,33, 2F6 
1020 DATA 33, 33,33,33, 33, 33, 33,33, 33,33, 33,33,33, 33,33,2FD 
1030 DATA 33,33,33,33,33,33,33, 33,33,33,33,33,33, 33.33.2FD 
1040 DATA 33, 33,33,33,33, 33,33,33, 33, 33, 33, 33,33, 33,33,2FD 
1050 DATA 33,33, 33,33,33,33,33,33,33, 33,33,33, 33,33,33, 2FD 
1060 DATA 33,33, 33,33,33,33,33, 33, 33,33,33,33, 33,33,33, 2FD 
1070 DATA 33,63,33,33,63, 33, 33,33,61, 63,33,33, 63.33,33, 43B 
1080 DATA 33,B1, 33,93, 33, 33,93,33, 33, 72,33, 63, 33, 33,63, 4DA 
1090 DATA 33,33,33,B1,33,63,33,33,63,33,33,33,B1,33,33,459 
1100 DATA 33,33, 33,33,33, 33,33,33,33,33,33, 33,33, 33,33,2FD 
1110 DATA 33,33,33,33,33, 33,33,33,33, 33,33,33, 33,33, 33, 2FD 
1120 DATA 33, 33, 33,33,33, 33,33,33,33, 33,33, 33, 33, 33, 33, 2FD 
1130 DATA 33,33,33,33,33,33,33,33,33, 33,33,33,33, 33, 33, 2FD 
1140 DATA 33,33, 33,33,33,33,33,33,33,33,33, 33,33,33, 33.2FD 
1150 DATA 33, 33,33,33,33, 33.33,33,33, 33,72,33, Bl, 33, 33, 3BA 
1160 DATA B1,63,33,72,33,B1, 33,33,81, 63,33, 33,B1,72,33,5D3 
1170 DATA 33, 72, 33,93,33, 72, 33,B1,33,33,B1, 63,33, 33, 72,546 
1180 DATA 33,B1, 33,33, Bl, 63, 33,33,33,33, 33, 33,33, 33,33, 429 
1190 DATA 33,33,33,33,33,33,33,33,33,33,33,33,33, 33,33,2FD 
1200 DATA 33,33, 33, 33,33,33, 33,33, 33,33, 33,33,33,33,33, 2FD 
1210 DATA 33,33,33, 33, 33, 33, 33,33, 33, 33, 33,33, 33, 33, 33, 2FD 
1220 DATA 33,33, 33,33,33, 33, 33, 33, 33,33, 33, 33,33, 33,33,2FD 
1230 DATA 33,33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 2FD 
1240 DATA 33,33, 33,33,C3,C3,C3,C3,C3,C3,C3,C3,C3,C3,C3,92D 
1250 DATA C3,C3,C3,C3,C3,C3,C3,C3,C3,C3,C3,C3,C3,C3,C3,B6D 
1260 DATA C3,C3,C3,C3,C3,C3,C3,C3,C3,C3,C3,C3,C3,C3,C3,B6D 
1270 DATA C3,C3,C3,C3,C3,E1,C3,63,C3,C3,C3,C3,C3,E1,C3,B49 
1280 DATA 63,C3,C3,C3,C3,C3,D2,C3,93,C3,C3,C3,C3,C3,C3,AEC 
1290 DATA E1,C3.63,C3,C3,C3,C3,C3,C3,E1,C3,63,C3.C3,C3,AE9 
1300 DATA C3,C3,C3,C3,C3,C3,C3,D2,C3,C3,C3,C3,C3,C3,C3,B7C 
1310 DATA D2,C3,CJ,C3,C3,C3,C3,C3,C3,£l,C3,C3,C3,C3,C3,BâA 
1320 DATA C3,C3,D2,C3,C3,C3,C3,C3,C3,C3,C3,D2,C3,C3,93,B5B 
1330 DATA C3,C3,C3,C3,C3,C3,C3,93,C3,C3,C3,C3,C3,C3,C3,B3D 
1340 DATA C3,63,C3,C3,C3,C3,C3,C3,C3,93,C3,C3,C3,C3,C3,ADD 
1350 DATA C3,C3,C3,93,C3,C3,C3,C3,C3,C3,C3,C3,C3,C3;C3,B3D 
1360 DATA C3,C3,C3,C3,C3,C3,C3,C3,C3,C3,C3,C3,C3,C3,C3,B6D 
1370 DATA C3,C3,C3.C3.C3,C3,C3,C3,C3,C3,C3,C3,C3.C3,C3,B6D 
1380 DATA C3,C3,C3,C3,C3,C3,C3,C3,C3,C3,C3,C3,63,C3,C3,B0D 
1390 DATA C3,C3,C3,C3,C3,63,C3,C3,C3,C3,C3,C3,C3,93,C3,ADD 
1400 DATA C3,C3,C3,C3,C3,C3,C3,63,C3,C3,C3,C3,C3,C3,C3,B0D 
1410 DATA C3,63,C3,C3,C3,C3,C3,93,D2,C3,C3,C3,D2,C3,63,A9B 
1420 DATA 93,02, C3,C3,C3,D2,C3,63,C3,63,E1,C3,C3,C3,E1,AD7 
1430 DATA 93,C3,93,D2,C3,C3,C3,D2,C3,63,C3,93.D2,C3,C3,AAA 
1440 DATA C3,D2,C3,63,C3,C3,C3,C3,C3,C3.C3,C3,C3,C3,C3,B1C 
1450 DATA C3,C3,C3,C3,C3,C3,C3,C3,C3.C3,C3,C3.C3,C3,C3,B6D 




1460 DATA 
1470 DATA 
1480 DATA 
1490 DATA 
1500 DATA 
1510 DATA 
1520 DATA 
1530 DATA 
1540 DATA 
1550 DATA 
1560 DATA 
1570 DATA 
1580 DATA 
1580 DATA 
1600 DATA 
1610 DATA 
1620 DATA 
1630 DATA 
1640 DATA 
1650 DATA 
1660 DATA 
1670 DATA 
1680 DATA 
1690 DATA 
1700 DATA 
1710 DATA 
1720 DATA 
1730 DATA 
1740 DATA 
1750 DATA 
1760 DATA 
1770 DATA 
17B0 DATA 
1790 DATA 
1800 DATA 
1810 DATA 
1820 DATA 
1830 DATA 
1840 DATA 
1650 DATA 
1860 DATA 
1870 DATA 
1880 DATA 
1890 DATA 
1900 DATA 
1910 DATA 
1920 DATA 
1930 DATA 
1940 DATA 
1950 DATA 
1960 DATA 
1970 DATA 
i960 DATA 
1990 DATA 



C3,C3,C3,C3,C3. 
C3,C3,C3,F3,F3 
F3,F3,F3,F3,F3, 
F3,F3,F3,F3,F3 
SD,F3,F3,F3,FF 
FF,FB,FB,FB,FF 
F7,FF,F7,FF,F7, 
F3,F3,59,59,59 
59,59,0C,59,0C, 
A6,A6,A6,A6,F3 : 
5B,5B,5B,F3,5B, 
5B,F3,A7,F3,5B ; 
A7,A7,F3,F3,F3, 
F1,F3,A5,F1,F1, 
F2,F3,A5,5B,A5, 
F3,F3,F3,94,F3, 
F0,F1,F1,F3,A5, 
F0,F1,F1,F1,F3, 
F3,95,79,F3,E7, 
5B,5B,5B,5B,F3, 
5B,58,F3,F3,5B, 
3E,F3,A6,DB,3C, 
1C.1C.3C, OC, 1C, 
3C,2C,0C,2C,0C, 
E7,4D,3F,3F,3F, 
3F,3F,3F,3F,3F, 
3F,3F,3F,3F,3F, 
CC, CC, CC, CC, CC, 

ce, cc.ee, ce, ce, 
cc,cc,cc,cc,cc, 

30,30,30,30,30. 
30,30,30,30,30 
30,30,30,30,30, 

co,co,co,co,co 

CO,C0,CO,CO,C0, 

C0,C0,C0,C0,C0 

C3, FF, FF, FF, FF, 

FF,FF,FF,FF,FF, 

EA,C0,CO,CO,CO, 

0E,0E,0E,0E,0E, 

0E,0E,0E,OE,0E, 

93,33,33,33,33, 

85,85,85,85,85, 

85,85,85,85,85, 

63,33,33,33,33, 

5A,5B,5A,5B,5A, 

5B,5A,5B,5A,5B, 

33,33,33,33,33, 

65,85,85,85,85, 

65,85,85,85, 

33,B1,33,C3,58, 

5A,F1,5A,F1,5B, 

F1,5A,F1,5A,F0, 

33,C3,5B,D1,D0, 



C3,C3,C3,C3, 
F3,F3,F3,F3 
F3,F3,F3,F3, 

,F3,F3,F3,F3 
FB,FB,F3,FF, 

,FB,FF,FB,FF 
FF,F3,F3,F3, 
F3, OC, 59, OC. 
59, OC, 59, 5D, 
F3,F3,D1,3D : 
5B,5B,5B,5B, 
F3,0E,5B,F3 : 
D1,B6,F3,E7, 
F3,F0,F3,F3. 



C3,C3,C3. 
F3,F3,F3 
F3,F3,F3. 
,F3,F3,95 
FB,FF,FB, 
FB,FB,FB 
94,6E,F3, 
59,59,59 
59,F3,A6, 
F3,DB,E7, 
5B,F3,5B, 
F3,5B,A7 : 
F3,F3,F3, 
FU.Fl.SB. 



F1,F3,F3,F1 
F3,F3,DB,F3 
F1,F3,F3,F1, 
F3,F1,F2,F0 
E7,F3,F3,F3, 
F3,5B,A7,F3 
F3,A7,F3,A7, 
3C,3C,0C,1C 
2C,X,0C,1C, 
2C,0C,2C,0C 
3F,3F,3F,3F, 
3F,3F,3F,3F 
3F,3F,3F,3F, 
CC,CC,CC,CC, 
CC,CC,CC,CC, 
CC,CC,CC,90, 
30,30,30,30, 
30,30,30,30, 
30, 90, 64, 3C, 
C0,C0,C0,C0, 
CO,CO,CÛ,CO, 
C0,C0,C0,C0, 
FF,FF,FF,FF, 
FF,FF,FF,FF, 
C0,C0,33,72, 
0E,OE,0E,0E, 
0E,0E,0E,0E. 
63,33,33,63, 
85,85,85,85, 
85,85,85,85, 
33,33,63,86, 
5B,5A,5B,5A, 
5A,5B,5A,5A, 
C3,AF,85,65 
85,85,85,65, 
85,85,65,85, 
F2,F1,5A,F1, 
5B,5A,F1,5A, 
FI, 5A, 19, 33, 
D1,D0,D1,D0, 



F2,5A,F2 
F3,F3,F0 
F0,F1,F3 
F2,F0,F2 
59,59,58, 
F3,5B,A7 
A7,A7,F3, 
0C,1C,1C, 
2C,3C,0C, 

3F,3F,3F, 
3F, 3F, 3F, 
,3F,C4,6E, 
CC,CC,CC, 
CC,CC,CC, 
9D,3C,F7 
30,30,30, 
30,30,30, 
7D,AE,C0, 
C0,CO,C0 
C0,C0,C0, 
33,33,33, 
FF,FF,FF, 
FF,FF,FF, 
33,33,63, 
0E,0E,0E 
0E,0E,0E, 
63,D7,0D, 
85,85,85, 
85,85,85, 
5A,5B,5A, 
5B.5A.5B 
5B,0E,C3, 
85,85,85, 
85,85,85, 
BB,33,33, 
5A,F1,5A, 
F1,5A,F1 
33,33,33, 
01,00,85, 



C3,C3,C3,B6D 
F3,F3,F3,DAD 
F3,F3,F3,E3D 
98,E7,CF,D54 
FB,FB,F3,DFB 
F3,F3,FB,EB5 
DB,8E,F3,D0C 
F3,0C,59,6B8 
59,A6,A6,5D5 
F3,F3,F3,C0D 
F3,5B,5B,71D 
A7,A7,A7,97C 
F3,A5,F3,CEC 
5B,F0,F1,CAC 
5A,F2,F2,BCE 
F1,5B,F3,D29 
F1,F2,F3,DDC 
F2,F3,F3,E28 
5B,5B,5B,9B6 
F3,5B,F3,97D 
F3,F3,C4,B16 
1C,0C,1C,416 
1C,1C,1C,1F4 
95,9D,F3,3F5 
3F,3F,3F,467 
3F,3F,3F,3B1 
79,A6,8E,555 
CC,CC,CC,BF4 
CC,CC,CC,BF4 
4D,30,30,96D 
30,30,30,2D0 
30,30,30,2DO 
C0,C0,C0,67B 
CO,CO,CO,B40 
C0,CO,CO,B40 
33,33,63,822 
FF,FF,FF,EB5 
FF,FF,FF,EF1 
C3,AE,0E,B57 
OE,OE,0E,OD2 
ÛE,0E,EB,1AF 
85, 85, B5, 561 
85,85,85,7CB 
50,93, 33, 75F 
5B,5A,5B,49D 
5A,5B,5A,54D 
33,33, Bl, 571 
85,85,85,699 
85, 85,85, 7CB 
33,33,72,6A6 
FI, 5B, FI, 942 
5B,F1,5A,8D3 
33,33,33,64F 
D0,D1,D0,ACB 



2000 DATA D1.D0 
2010 DATA DO, 01 
2020 DATA F3,F3 
2030 DATA F3,F3, 
2040 DATA F3.F3, 
2050 DATA 3C.3C 
2060 DATA 3C,3C 
2070 DATA 3C,69 
2080 DATA 03,03, 
2090 DATA 03,03 
2100 DATA C3,63 
2110 DATA C0,C0 
2120 DATA CO,C0 
2130 DATA D2,C3, 
2140 DATA C3,C3, 
2150 DATA C3,C3, 
2160 DATA C3,C3, 
2170 DATA C3,C3 
2180 DATA C3.C3, 
2190 DATA C3.C3 
2200 DATA C3,C3 
2210 DATA C3,C3. 
2220 DATA C3,E2 
2230 DATA 93, C3 
2240 DATA C3.C3, 
2250 DATA C3,63, 
2260 DATA C3.E1 
2270 DATA D2,C2 
2260 DATA C3,C3, 
2290 DATA C3,C3 
2300 DATA E3,C3 : 
2310 DATA 33,33. 
2320 DATA 33,33, 
2330 DATA 33,33, 
2340 DATA 33,63, 
2350 DATA 33,33 
2360 DATA 33,63, 
2370 DATA 33, Bl 
2380 DATA 33,33 
2390 DATA 33,33 
2400 DATA 33,33 
2410 DATA 33,33, 
2420 DATA 33,33, 
2430 DATA 33,33, 
2440 DATA 33,33, 
2450 DATA 68,63, 
2460 DATA 33,33, 
2470 DATA 72,33 
2480 DATA 33,33, 
2490 DATA 33,93 
2500 DATA 62,39 
2510 DATA 33,33 
2520 DATA 33,33 
2530 DATA 33,33 



,D0,D0,D1 
,01,00,01 

,F3,F3,F3 
,F3,F3,F3 
,F3,B3,33 
,3C,3C,3C. 

,C3,C3,C3. 

,03,03,03, 

,03,03,03 

,C3,C3,C3. 

,C0,C0,C0 

,C0,C0,C0 

,C3,93,C3 

,C3,C3,C3. 

,C3,C3,C3. 

,C3,C3,C3, 

,C3,C3,C3 

,C3,C3,C3, 

,C3,E2,C3, 

,C3,C3,C3, 

,C3,C3,C3 

,C3,C3,C3. 

,C3,C3,C3 

,C3,C2,E3 

,83,02,C3 

,93,C3,93, 

,E3,C3,D2, 

,C3,C3,C3, 

,C3,C3,C3 

,C3,C3,C3, 

,33.33,33 

,33,33,33 

,33,33,72 

,33,33,33 

,33,63,33. 

,33,33,63, 

,33,93,33, 

,33,B1,33, 

,33,33,E2 

,33,33,33 

,33,33,33 

,68,33,33 

,33,72,33 

,33,33,62 

,33,72,33. 

,33,33,33, 

,E0,B3,33, 

,33,33,33, 

,33,33,33, 

,33,33,33, 

,33,33,33 

,33,33,33, 

,33,33,C3 



,DO,D1,DO,D1 
,4B,33,B1,33 
,F3,F3,F3,F3 
,F3,F3,F3,F3 
, 33,33,33, C3, 
,3C,3C,3C,3C 
,3C,3C,3C,3C, 
,C3,C3,C3,C3 
,03,03,03,03, 
,03,03,03,03, 
,C3,C3,C3,C3, 
,C0,C0,C0,C0 
,C0,C0,CO,C0. 
,C3,C3,E2,C3 
,63,C3,C3,C3, 
,C3,C3,C3,93 
,E2,C3,C3,C3 
,C3,C3,C3,C3. 
,C3,C3,C2,E3, 
,C3,C3,C3,C3. 
,C3,C3,C3,C3, 
,C2,E3,C3,C3, 
,C3,C3,63,C3, 
,C3,C3,C3,C3, 
,C3,C3,C3,C3, 
,C3,C3,D2,C3, 
,D2,C3,C3,C3, 
:,63,C3,C3,C3, 
,C3,C3,C3,C3, 
,C3,C3,C3,C3, 
,33,33,33,33, 
,33,33,33,33. 
,33,33,33,33, 
,33, 33, 33, E2, 
,33,81,33,33, 
,33,33,33,33, 
,33,E2,33,B1, 
,33,93,33,33, 
,63,63,33,62, 
,33,33,33,33, 

,33,62,B3,33, 
,33,33,33,33, 
,33,33,33,33, 
,B3, 33,33,33, 
,B1,33,33,B1. 
,72,33,81,33, 
,B1, 33,33,33, 
,33,33,33,33, 
,33,33,33,33, 
,33,33,33,33, 
,33,33,33,33, 
,33,33,33,33, 
,C3,C3,C3,C3, 



D0,85,D0,D0,D0,D1,BEA 
,33,33,33, 33, 33,63, 6D7 
,F3,F3,F3,F3,F3,F3,E3D 
,F3,F3,F3,F3,F3,F3,E3D 
,C3,C3,C3,C3,3C,3C,89F 
,3C,3C,3C,3C,3C,3C,3B4 
3C,3C,3C,3C,3C,3C,384 
E1,C3,03,03,03,03,7AA 
03,03,03,03,03,03,020 
03, 03,03,03,03, 43, 06D 
E2,CO,CO,CO,CO,CO,B1D 
,CO,CO,CO,CO,CO,CO,B40 
C0,C0,C0,E3,C3,C3,B69 
C3,C3,93,C3,C3,C3,B3B 
C3,C3,C3,C3,93,C3,ADD 
,C2,E3,C3,C3,C3,C3,B5C 
C3,C3,C3,C3,C3,C3,B8C 
,C3,C3,C3,C3,C3,C3,B6D 
C3,C3,C3,C3,C3,C3,BBC 
C3,C3,C3,C3,C3,C3,B8C 
C3,C3,C3,C3,C3,C3,B6D 
C3,C3,C3,C3,C3,63,B2C 
C3,C3,C3,C3,C3,C3,B2C 
63,C3,C3,C3,C3,C3,ADD 
93,D2,C3,C3,C3,E2,B6A 
63,C3,63,E1,C3,C3,AS8 
D2,C3,63,C3,93,93,A89 
C3,C3,C3,E2,C3,C3,B69 
C3,C3,C3,C3,C3,C3,B6D 
C3,C3,C3,C3,C3,C2,B6C 
33,E2,33,33,33,33,69C 
33,33, 33, 33,33, 33,2FD 
33,33, 33,62, 83,33,3AC 
33, 33, 33, 72, 33, 33, 42A 
33, 93, 33, 33, 33, 72, 44A 
72, 62, 83,33, 63, 33, 44B 
63, 33,33,63, 33, 33, 4EA 
72, 33, 63, 33,33,63, 4DA 
E3, 33,33, Bl, 33, 33,538 
33, 33, 33, 33, 33, 33, 3AC 
33, 33, 33, 33, 33, 33, 2FD 
33, 33,33,33,33,33, 3AC 
33,33,33,33,33,33,332 
33, 33,33,33, 33,33, 33C 
33, 72, 33,B1, 33,33,469 
63,33,33,81,33,72,58» 
33,B1, 63,33,33,72, 4A7 
33,33,33,33,68,33,510 
33, 33,33,33, 33,33,2FD 
33,33,33,33,33,33,350 
33,33,68,33,33,33,367 
33, 33, 33, 33, 33, 33, 2FD 
33,33,33,33,62,39,332 
68,C3,C3,C3,C3.C3,8D2 



2540 data 

2550 DATA 
2560 DATA 
2570 DATA 
2580 DATA 
2590 DATA 
2600 DATA 
2610 DATA 
2620 DATA 
2630 DATA 
2640 DATA 
2650 DATA 
2660 DATA 
2670 DATA 
2680 DATA 
2690 DATA 
2700 DATA 
2710 DATA 
2720 DATA 
2730 DATA 
2740 DATA 
2750 DATA 
2760 DATA 
2770 DATA 
2780 DATA 
2790 DATA 
2800 DATA 
2810 DATA 
2820 DATA 
2830 DATA 
2840 DATA 
2850 DATA 
2860 DATA 
2670 DATA 
2880 DATA 
2890 DATA 
2900 DATA 
2910 DATA 
2920 DATA 
2930 DATA 
2940 DATA 
2950 DATA 
2960 DATA 
2970 DATA 
2980 DATA 
2990 DATA 
3000 DATA 
3010 DATA 
3020 DATA 
3030 DATA 
3040 DATA 
3050 DATA 
3060 DATA 
3070 DATA 
3080 DATA 



C3,C3, 
C3.C3, 
C3,C3, 
63, C3, 
E1,C3 : 
C3,C3, 
F3.F3, 
F3,F3 
C3,C3. 
C3,C3 
C3,C3 
C3,C3 
D2.C3, 
C3,C3, 
C3,C3, 
C3,C3 
C3.C3 
C3.C3 
C3,C3 
C3.C3 
C3,C3 
93,02 
C3,63 
C3.C3 
C3,C3 
C3.00 
00, CO 
B6.D1 
2D.CF 
OC,EE 
B6.84 
C0,80 
00.00 
00,40 
00, CO 
9D,B0 
80,00 
CÛ.OÛ 
80,00, 
48, D5 
94, 4A 
F3.85. 
D1,F0 
F0.C2 
00,00, 
80,00, 
00,00, 
00,00, 
40,98. 
79,40, 
FF.53, 
4C,A6, 
86,80 
00,00, 
00,00, 



C3,C3, 
C3,C3, 
C3.C3, 
C3,C3, 
63, C3, 
C3,C3, 
F3.F3, 
F3.F3, 
C3.C1 
C3,C3, 
C3,93, 
C3,C3, 
63, C3, 
C3,C3, 
C3,C3, 
C3.C3 
C3.C3, 
C3,63. 
C3.C3, 
C3.C3, 
C3,D2, 
C3.C3. 
C3,C3, 
C3.C3 
C3,C3, 
00,00 
Cl.FO, 
F0.E2, 
1E,9C, 
E6.6A 
EA.84, 
00,40, 
40, CO, 
9D,00. 
00,00, 
00,00, 
00,00, 
00,00 
40, CO, 
48,16 
D5,0C 
CF.1A 
E2,29 
80,00 
00,00 
00,00 
00,00 
C0,40 
40,98, 
0E.B5 
D1,CA, 
EA,40 
40,16, 
40, Cl 
00, CO 



C3,C3,C3, 
C3,C3,C3, 
C3,E1,C3, 
C3,C3,C3, 
C3,C3,C3, 
C3,42,F3, 
F3,F3,F3, 
F3,F3,F3, 
C3,C3,C3 
C3,C3,C3 
63,C3,C3 
C3,C3,C3, 
,C3,C3,C3, 
C3,C3,C3, 
C3,C3,C3, 
,C3,C3,C3, 
C3,C3,C3, 
C3.C3.C3, 
,C3,63,C3 
C3,93,D2, 
C3,63,C3, 
,C3,D2,C3, 
C3,C3,C3, 
C3,C3,C3, 
C3,C3,C3, 
CO, 00,00, 
C2,CO,00, 
79,80,D1, 
E2,94,3A, 
C4.60.E6, 
4A,16,C0, 
OD,00,OE, 
00,C0,80, 
,6E,80,00, 
00,00,00, 
00,00,40, 
,00,40,29, 



4Û,ÛD,B0, 
F3,80,29, 
30,5D,84, 
AE,C5,48, 
F3,80,40, 
80,00,61, 
00,00,40, 
00,00,00, 
00,40,90, 
40,88,80, 
C0,80,00, 
80,00,40, 
48,05,48, 
64,4A,D5, 
F3,85,CF, 
D1,F0,E2, 
F0,C2,80, 
00,00,00, 



C3,C3,C3,C3 

C3,C3,C3,C3, 

68,C3,C3,C3, 

C3,C3,C3,C3, 

C3,C3,C2,43, 

F3,F3,F3,F3, 

F3,F3,F3,F3, 

E3,C1,C3,C3, 

93,C3,C3,C3, 

C3,C3,93,C3, 

C3,C3,C3,C3, 

C3,C3,C3,C3, 

C3,C3,C3,C3, 

C3,C3,C3,C3, 

C3,C3,C3,C3, 

C3,C3,C3,C3, 

C3,C3,C3,63, 

C3,C3,C3,C3, 

C3,C3,C3,C3, 

C3,C3,C3,D2, 

63, El, 93, C3, 

63.C3.93, 02, 

C3,C3,C3,C3 

C3,C3,C3,C3, 

C3,C3,C3,C3, 

00,00,00,40 

40,D1,D0,F0, 

B7.E7.F3, 

2E,0F,1D,35, 

FF,D9,90,C8, 

29,85,48,40, 

80,00,00,40, 

00,00,40,64 

0O,OO,CO,OO, 

40.7B.80.00, 

60,80,00,00, 

80,00,00,00, 

6b, BO, 00, OU, 




C0,8O,B4,4A, 
EA,85,E2,C0 
D5, 59, 84,0F, 
79.C5.F3.CA, 
D0,F0,E0,42, 
C3, 80, 00,00, 
CO, 00,00, 00, 
80,00,00,00, 
00,00,00,00, 
00,40, 6E, 40, 
C0,F3, 40,29, 
16, 30, 5D, 84, 
0C,AB,C5,48, 
1A,F3,80,40 
29,80,00,81, 
00,00,00,40 
00,00,00,00, 



C3,C3,C3,C3,B6D 
C2,69,C3,C3,B12 
C3,C3,E1,C3,B4E 
C3,C3,C3,C3,B0D 
C3,63,C3,C3,A4A 
F3,F3,F3,F3,C9C 
F3,F3,F3,F3,E3D 
D2,C3,C3,93,CBA 
C3,C3,C3,C3,B3B 
C3,C3,C3,C3,B3D 
C3,C3,C3,C3,ADD 
C3,C3,C3,C3,B6D 
C3,C3,C3,C3,B1C 
C3,C3,C3,C3,B6D 
C3,C3,C3,C3,B6D 
C3,C3,C3,C3,B6D 
C3,C3,C3,C3,B0D 
C3,C3,C3,C3,B0D 
C3,C3,C3,63,AAD 
C3,63,93,D2,ADA 
D2,C3,93,C3,A89 
C3,C3,C3,D2,AE9 
C3,C3,C3,C3,B0D 
C3,C3,C3,C3,B6D 
C3,C3,C3,C3,B6D 
03,80,00,00,306 
E0,E2,6O,4O,946 
7B,E2,D1,6C,B29 
68,95,D9,DD,6A8 
05,48,79,29,943 
C0,AE,C0,5D,789 
5B,0O,A7,B0,3DD 
00,98, 80,00,3FC 
C0,00,00,00,34B 
00,00,00,40,238 
00,00,40,B6,333 
00, 40, 5B, 80,284 
au, AE, BO, 98, 4SI 
79,80, 0E,85,6B6 
FF,53,D1,CA,B8A 
4C,A6,EA,40,744 
,40,16,898 
00,00,40, Cl, 7B0 
00,00, OO.CO, 475 
00,00, 40,7B,17B 
00,40, 60.80.2FD 
40, 29, 80, 00, 25F 
6E, 80,00,00,410 
CO, 80,84, 4A,69A 
EA,85,E2,C0,6E9 
D5,59,84,0F,815 
7B,C5,F3,CA,92B 
D0,F0,E0,42,83B 
C3, 80, 00, 00,486 
00,00,00,00,000 




DATAS2 



10 ' 

20 ' DATAS pour SH00T2.BIN 
30 ' 

40 MODE 2:AD=1C000:NL=110 
50 FOR B=l TO 260:T0T=0:F0R T=0 TO 14:BEAD A» 
60 POKE AD,ÏAL("i"tA*);TOT=TOT*PEEK(AD):AD=ADtl 
70 NEXT:6EAD S0HI:1F VAL("t"tS0H*)OT0T THEN 90 
80 HL=NL*10:NEXT:SAVE"SHOOT2.BIN",B,(,COOO,4F32:CLS:END 
90 CLS:LOCATE l.hPBINrLIGKE'iNLi'INCORRECTE'tEND 
100 ' 

110 DATA C3.35, 75, 62,64,31, 00,C0,21,EE,BD,38,C9,CD,EE,7CA 
120 DATA 75,3E,01,11,D1,7E,CD,41,81,AF,CD,0E,8C,06,00,5EF 
130 DATA 0E,00,CD,38,BC,CD,EO,7B,21,OD,C0,22,E5, 70,06, 66F 
140 DATA 32,CD,87,7C,21,DD,78,06,05,CD,BO, 78,21, 5A, 79,660 
150 DATA U,D4,E3,CD,5A,7B,21,00,51,11,FB,E1,01,16,00,5EO 
160 DATA 3E,0F,CD,41,7B,CD,92,7C,CD,1E,7E,CD,F1,7B,3E,791 
170 DATA 4C,CD,1E,BB,C2,9A,75,CD,63,7E,CD,30,7A,C3,B9,834 
180 DATA 75,CD,E0,7B,AF,CD,0E,BC,CD,A0,7C,CD,F5,79,21,928 
190 DATA 00,C0,22,E5,70,AF,32, 13, 7B,3E,30,32,0F, 78,32,509 
200 DATA 11, 78,21, 00,51, 11, 92,FC,01, 16, 00,3E,OF,CD,41,40C 
210 DATA 7B,CD,4D, 78, 21, 6D,79,06,03,CD,B0, 78,21,90,79,630 
220 DATA U,80,E8,CD,5A,7B,21,AC,79,11,C0,E9,CD,5A,7B,7BD 
230 DATA AF,32,DD,7D,32,DF,7D,C3,F5,75,21,EB,7D,22,CF,B70 
240 DATA 7D,C9,AF,32,DD,7D,CD,92,7C,CD,18,7C,CD,30,7A,834 
250 DATA 2i, D2, 78,11, û0,tB,CD,5A,i'8,CD,Fl,7B,3E,42,CÛ,7bF 
260 DATA 1E,BD,C2,F2,79,3A,E7,7D,CD,1E,BB,CA,0E,76,06,79E 
270 DATA 07,C5,DD,21,6D,7D,DD,7E,OC,D6,05,DD,77,OC,3E,694 
280 DATA 02,21, 9A,O0,01,5A,5E,CD,03,7E,CD, 30, 7A,CD,3A,542 
290 DATA 78,3E,42,CD,1E,BB,C2,F1,79,3E,12,CD,1E,BB,C4,7B4 
300 DATA 0F,7C,C1,10,CF,CD,07,7A,DD,21,7E,7D,DD,77,0E,6D4 
310 DATA DD,21,8F,7D,DD,7E,0E,FE,02,C2,70,76,DD,21,7E,797 
320 DATA 7D,DD,36,0E,02,06,0F,C5,DD,21,8F,7D,DD,7E,0C,5EB 
330 DATA D6,07,Dp,77,0C,CD,lA,7A,DD,21,7E,7D,CD,lA,7A,6FB 
340 DATA C0,30,7A,3E,42,CD,1E,BB,C2,F1,79,3E,12,CD,1E,704 
350 DATA BB,C4,0F,7C,C1,78,FE,04,C2,B4,76,DD,21,7E,7D,82A 
360 DATA FD,21,8F,7D,DD,7E,0E,FD,BE,0E,CA,E2,76,10,BC,84A 
370 DATA 21,BC,7B,11,00,EB,CD,5A,7B,21,0F,7B,34,11,98,578 
380 DATA E8,CD,5A,7B,06,FA,CD,B7,7C,06,64,CD,67,7C,3A,7CE 
390 DATA 13,7B,3C,FE,09,D2,1D,77,32,13,78,C3,FC,75,06,62B 
400 DATA 03,C5,DD,21,BF,7D,DD,7E,0C,C6,07,DD,77,0C,CD,733 
410 DATA 30,7A,3E,42,CD,1E,BB,C2,F1,79,3E,12,CD,1E,BB,6F2 
420 DATA C4,0F,7C,C1,10,DD,21,C7,78,11,00,EB,CD,5A,7B,6FB 
430 DATA 21,11,78,34,11,D8,E9,CD,5A,7B,C3,C9,76,06,FA,754 
440 DATA CD,87,7C,AF,CD,0E,BC,CD,E0,7B,06,32,CD,87,7C,846 
450 DATA 11, 40,F2,06,06,C5,D5,21,6B, 53,01, 2B, 00, 3E, 10,442 
460 DATA CD,41,7B,El,ll,A0,0O,19,EB,Cl,10,EA,21,O0,51,64C 
470 DATA 11,5A,D9,01,16,00,3E,OF,CD,41,7B,DD,21,OF,78,4B6 
480 DATA FD,21,11,78,DD,7E,00,FD,BE,00,D2,8C,77,FD,7E,80D 
490 DATA 00,32,08,77,21, ED, 77, 11, 36, D3,CD,5A,7B,21,E0,6C3 
500 DATA 77,11, 29, D4,CD,5A,7B,21,D3,77,11,19,D5,CD,5A,6B8 



510 DATA 7B,C3,AA,77,32,D8,77,21,C7,77,11,3A,D3,CD,5A 1 7B4 

520 DATA 7B,21,E0,77,11,29,D4,CD,5A,7B,21,D3,77,11,19,638 
530 DATA D5,CD,5A,78,21,FD,77,U,55,EE,CP,5A,7B,CD,F1,BC0 
540 DATA 7B,3A,EB,7D,CD,1E,BB,CA,B6,77,06,FA,CD,87,7C,8BA 
550 DATA C3, 48. 75, 59, 4F. 55. 20, 4t, 52, 45, 20, 54, 48, 4S, 2A, 4A0 
560 DATA 57,49,54,48,20, 30, 20,47,4F, 41, 4C,53,2A,47,52,3E5 
570 DATA 45,41, 54,20,57,49, 4E,4E,45,52,2A,43,4F, 40,50,426 
580 DATA 55,54,45,52,20,49, 53,20,54,48,45, 2A,50,4C,45,408 
590 DATA 41, 53,45, 20,50,52,45,53,53,20,46, 49, 52,45,2A,3F6 
600 DATA 30,2A,30,2A,00,3A,DF,7D,FE,01,CA,77,7B,3A,DD,619 
610 DATA 7D,FE,01,CA,F1,79,CD,30,7A,3E,12,CD,1E,BB,C4,7E1 
620 DATA 0F,7C,3E,42,CD,1E,BB,C2,F1,79,C3,14,7B,CD,24,71D 
630 DATA BB,FE,09,CA,D6,79,FE,05,CA,DF,79,FE,01,CA,E8,9B1 
640 DATA 79, C9, 21, 16,56,11, 00,C0, 01, 2B,00,3E,2E,CD,41,44B 
650 DATA 7B,11,90,F1,06,09,C5,D5,21,6B,53,01,2B,00,3E,4FF 
660 DATA 10,CD,41,7B,E1,11,A0,00,19,EB,C1,10,EA,C9,06,6B9 
670 DATA FA,CD,87,7C,21,10,27,11,3A,C8,01,16,00,3E,18,4»5 
680 DATA CD,41,7B,21,DD, 78,11, 3C,EB,CD,5A,7B, 06,64, C5, 708 
690 DATA 06,14,CD,87,7C,C1,10,F7,06,FA,CD,87,7C,06,FA,782 
700 DATA CD,87,7C,06,FA,CD,87,7C,C3, 48,75, C5,5E,23,56,7BC 
710 DATA 23,C0,5A,7B,C1,10,F5,C9,47,4F,41,4C,20,2F,2F,5F5 
720 DATA 2F,2F,20,2A,42,41,44,20,4C,55,43,4B,20,20,2A,328 
730 DATA 3F, 20,20,20, 20,20, 20,20,20,20,2A, 51, Cl, 42,40,329 
740 DATA 41, 43,46,20,53,59, 53,54, 45, 40,20,50,52,45, 53,42E 
750 DATA 45, 4E,54,53,2A,EB,E2,44,45, 53,49, 47, 4E, 20, 31, 53C 
760 DATA 39,39,30,2A,5C,DD,50,52,4F,47,52,41,4D,2E,2E,479 
770 DATA 2E,2E,2E,20,4C, 55, 43,20,47,55,49, 4C,4C,41,55,3C1 
780 DATA 40,45,2A,FC,DD,47, 52,41, 50, 48, 49, 43, 53, 2E,2E, 542 
790 DATA 20, 48, 45,52,56,45, 20,47, 55, 49,4C,4C,41,55,4D,41A 
800 DATA 45,2A,9C,DE,4D,55, 53,49, 43,2E,2E,2E,2E,2E,2E,47E 
810 DATA 2E.20, 40,55,43,20,47, 55, 49, 4C,4C, 41, 55, 4D,45,3F7 
820 DATA 2A,50,52,45, 53,53,20,46, 49,52,45,20,54,4F, 20.3E0 
830 DATA 50, 4C,41,59,2A,83,FD, 43, 52, 45,41, 54,45, 44,20,4F8 
840 DATA 42,59, 2A,21,FE,42,4C,41,43,4B,20,53,59,53,54,4B4 
850 DATA 45, 4D,2A,C9,FE,31,39,39,30,2A,50,4C,41, 59,45, 4FB 
860 DATA 52, 20 , 31 , 20, 3E, 20, 30, 30, 2A, 50, 4C, 41 , 59, 45, 52, 378 
870 DATA 20, 32, 20, 3E, 20, 30, 30, 2A, 43, 4F, 4D, 50, 55, 54, 45, 377 
880 DATA 52,20, 3E,20,30,30,2A,20,3A,7A,7D,30,FE,02,C2,4A9 
890 DATA C5,79,AF,32,7A,7D,21,9A,00,CD,50,7D,01,5A,5E,630 
900 DATA 09,22,74, 7D,C9,DD,21,8F,7D,DD,36,0E,03,C9,DD,6B9 
910 DATA 21,8F,7D,DB,36,0E,01,C9,DD,21,BF,7D,DD,36,ûE,643 
920 DATA 02,CB,C1,C3,48,75,DD,21,6D,7D,06,05,DD,36, 00,612 
930 DATA 00,11, 11, 00,DD,19,10,F5,C9,2A,CF,7D,23,22,CF, 570 
940 DATA 7D,7E,FE,00,C0,21,EC,7D,7E,22,CF,7D,C9,DD,7E,853 
950 DATA 0E,FE,01,CA,28,7A,FE,03,CA,2C,7A,C9,DD,35,0B,6D0 
960 DATA C9,DD,34,0B,C9,11,68,7D,06,05,CD,2D,7B,C6,D5,6BE 
970 DATA DD,7E,00,FE,00,2B,32,CD,30,7D,DD,7E,OC,06,32,69C 
980 DATA 21,2D,O0,CD,5C,7D,DD,7E,0B,D6,64,4F,O6,00,O9,4F2 
990 DATA 01,65,00,09,DD,74,04,DD,75,03,DD.56,06,0D,5E,56D 
1000 DATA 05, DD,4E,O9,06,00,DD,7E,0A,CD,Cl,7C,Dl, Cl, 13,653 
1010 DATA 10,BD,ll,68,7D,O6,05,CD,2D,7B,C5,D5,DD,7E,00,638 
1020 DATA FE,00,2B,1A,FE,FF,CA,A3,7A,DD,66,04,DD,6E,03,7B9 
1030 DATA DD,56,08,DD,5E,07,DD,46,09,DD,4E,OA,CD,E7,7C,70E 
1040 DATA 01,C1,13,10,D5,21,64,00,ED,SB,E5,7D,01,2D,00,5E7 
1050 DATA 3E,C8,CD,15,7D,C3,F3,7A,11,68,7D,06,05,CD,2D,690 




1060 DATA 
1070 DATA 
10BO DATA 
1090 DATA 
1100 DATA 
1110 DATA 
1120 DATA 
1130 DATA 
1140 DATA 
1150 DATA 
1160 DATA 
1170 DATA 
1180 DATA 
1190 DATA 
1200 DATA 
1210 DATA 
1220 DATA 
1230 DATA 
1240 DATA 
1250 DATA 
1260 DATA 
1270 DATA 
1260 DATA 
1290 DATA 
1300 DATA 
1310 DATA 
1320 DATA 
1330 DATA 
1340 DATA 
1350 DATA 
1360 DATA 
1370 DATA 
1380 DATA 
1390 DATA 
1400 DATA 
1410 DATA 
1420 DATA 
1430 DATA 
1440 DATA 
1450 DATA 
1460 DATA 
1470 DATA 
1480 DATA 
1490 DATA 
1500 DATA 
1510 DATA 
1520 DATA 
1530 DATA 
1540 DATA 
1550 DATA 
1560 DATA 
1570 DATA 
1580 DATA 
1590 DATA 
1600 DATA 



7B.C5 


D5,DP,7E, 


D2,EE 


7A,DP,66, 


01, DP 


7E,09,C6, 


D1,C1 


13, 10.CC, 


DD,7E 


OO,FE,00, 


DD.36 


00,00,DD, 


03, DD 


4E,D9,06, 


10, ce 


C9,DD,21, 


05, DD 


19,3D,18, 


00,08 


19,30,04, 


C3,41 


7B,7E,FE, 


05,21 


10,00,CD, 


08,D1 


CD,B4,7B, 


78,23 


C9,7E,FE, 


D5.21 


10,O0,CD, 


08, Dl 


CD,41,7B, 


78,23 


C9,C5,E5, 


30,04 


11,50,C0, 


08,19 


30,04,11, 


B4.7B 


AF.F5,06, 


C8,C3 


E1,7B,21, 


FI, El 


3C,FE,10, 


BD.36 


C9,C9,CD, 


6P,7D 


DD.36, 00, 


0A.16 


DD,36,0B, 


36, OE 


00,21, 5A, 


7D,DD 


36,00,01, 


0B.75 


DD,36,0C, 


DD,21 


8F,7D,DD, 


07, DD 


36,08,76, 


DD,74 


08,C9,21, 


11,64 


00,2A,E5, 


64,00 


36,00,11, 


D5.ED 


B0,D1,E5, 


18, ED 


C5,F5,E5, 


C8.18 


F0,C5,F5, 


01,50 


C0,O9,Fl, 


CA.07 


7D.E6.55, 


7E.E6 


55,18,03, 


DE, El 


01,20,00, 


B0.D1 


21,00,08, 


20,00 


09,C1,3D, 


0B,D6 


64, 4F, 09, 


11,00 


08,19,02, 


DD,74 


02,00,75, 


3D.C3 


60,70,01, 


84,00 


OO.OA.IA, 


00,22 


85,00,00, 


00,00 


00,01,85, 


00,00 


00,00,00, 


00,00 


00,00,00, 


00,00 


00,00,00, 


00,00 


00,00,00, 


00,00 


00,00,00, 


4C,01 


03,01,01, 



00, FE, 00, 28 
04,0D,6E,03 
02,4F,06,00, 
11,66,70,06, 
28,23,0D,7E : 
66,06,DD,6E, 
00,DD,7E,0A, 
60, 70, 05, 1A 
F7,D1,C9,C5 
11,50,00,19 
20,C2,62,7B. 
5C. 70,01, 20 
Dl, El, 13, 13 
20,C2,BF,7B 
5C, 70,01, 20 
D1,E1,13,13 
C5,E5,05,ED 
19, EB, El, Cl 
50,C0,19,EB : 
00,OE,00,CD, 
F3,7D,AF,E5, 
C8,23,C3,F5 
06.7CCD.06 
01,32, 7A.7D 
75, DD, 36, OC 
5E,DD,75,07. 
DD, 36, 09, 07 
50,21, D5,5D, 
36,00,01, DD, 
36,0C,B4 
F4,01,2B,7C 
70,01,20,00 
65,00,01,38 
21,20,00,19 
ED.BO.El.Ol 
E5,ED,B0,E1 
C1,3D,C8,18 : 
28,08, 1A.E6 
7E,E6,AA,4F : 
09,01, OD.CB 
19,30,04,11 
C8,16,E5,2A 
DD,7E,0C,D6, 
51,70,11,50 
01,C9,EB,21 
02,03,04,05 
00,00,00,00, 
00,00,00,00 
00,00,00,00, 
60,86,00,00 
00,00,2F, 67 
00,00,00,00 
00,00,00,00, 
00,00,00,00 
03,03,00,00 



,23 


DD 


7E, 


,2B 


DD 


56, 


,DD 


7E 


OA, 


,05 


CD 


20, 


,00 


FE 


FF, 


:,05 


DO 


56, 


,CD 


AE 


7C, 


1,11 


11 


00, 


>,E5 


D5 


EP, 


),EB 


El 


Cl, 


),3E 


2D 


06, 


),4E 


09 


01, 


i,23 


7E 


FE, 


3.3E 


2D 


P6, 


1,4E 


09 


01, 


3,23 


7E 


FE, 


),B0 


Di 


21, 


LD5 


ED 


60, 


3, El 


Cl 


09, 


),32 


BC 


FI, 


>,F5 


46 


4E, 


;,7B 


CD 


00, 


,,BB 


C3 


06, 


),DD 


36 


09, 


,D7 


DD 


36, 


?,DD 


74 


08, 


,DD 


36 


OA, 


),DD 


75 


07, 


,36 


09 


02, 


1,21 


5D 


53, 


,B5 


20 


FB, 


1,3E 


C8 


C3, 


,4A 


ED 


BO, 


,EB 


El 


FI, 


,2D 


00 


09, 


,01 


00 


08, 


,EA 


C5 


E5, 


,AA 


28 


08, 


,1A 


Bl 


Tt, 


,18 


02 


C5, 


,50 


CO 


19, 


,E5 


7D 


06, 


,32 


FE 


00, 


,C0 


19 


3D, 


,00 


00 


FE, 


,01 


00 


00, 


,00 


00 


00, 


,00 


00 


00, 


,00 


00 


00, 


,00 


00 


00, 


,00 


00 


00, 


,00 


00 


00, 


,00 


00 


00, 


,00 


00 


48, 


,00 


08 


02, 



0C,FE,D6,7F4 
02,DD,5E,76A 
CD,15,7D,546 
7B,C5,D5,691 
C2,10,7B,749 
04,DD,5E,61E 
D1,C1,13,63E 
FE, 01,26,505 
B0,El,lt,8EF 
09,3D,CB,52A 
2D,E5,D5,7E2 
02, 00, 3E, 365 
2A,C2,5A,792 
2D,E5,D5,7F7 
02,00,3E,365 
2A,C2,B7,74C 
00,08,19,840 
01,21, 00, 75F 
3D,C8,C3,5ED 
3C,FE,10,6DD 
CD,32,BC,950 
BB,21,EE,8D1 
BB.DD 21.7E4 
07,00,36,550 
0D,00,DD,5A6 
0D,21,7E,54B 
13,DD,36,4F7 
DD, 74,08, 5F4 
DD,36,0A,559 
0D,75,07,59A 
10,F6,C9,77E 
01,70,21,566 
C9,C5,F5,5B3 
01,30,08,912 
FI, Cl, 30,848 
09,30,04,733 
1A,FE,00,795 
1A,18,0B,4D0 
13,23,10,569 
E5,D5,EP,7E2 
EB,E1,01,4FE 
00,0P,7E,5E6 
CA,55,70,6A6 
C2,46,7D,4CE 
00,08, 19.65A 
00,00,62,24F 
00,00,00,0A8 
00,00,00, 0A7 
00,00,00,156 
00,00,00,106 
00,00, OO.0B6 
00,00,00,000 
00,00,00,000 
49,4A,4B,126 
01,18,17,090 



1610 DATA 
1620 DATA 
1630 DATA 
1640 DATA 
1650 DATA 
1660 DATA 
1670 DATA 
1680 DATA 
1690 DATA 
1700 DATA 
1710 DATA 
1720 DATA 
1730 DATA 
1740 DATA 
1750 DATA 
1760 DATA 
1770 DATA 
1780 DATA 
1790 DATA 
1800 DATA 
1810 DATA 
1820 DATA 
1830 DATA 
1840 DATA 
1B50 DATA 
1860 DATA 
iB70 DATA 
1880 DATA 
1890 DATA 
1900 DATA 
1910 DATA 
1920 DATA 
1930 DATA 
1940 DATA 
1950 DATA 
1960 DATA 
1970 DATA 
i960 DATA 
1990 DATA 
2000 DATA 
2010 DATA 
2020 DATA 
2030 DATA 
2040 DATA 
2050 DATA 
2060 DATA 
2070 DATA 
2080 DATA 
2090 DATA 
2100 DATA 
2110 DATA 
2120 DATA 
2130 DATA 
2140 DATA 
2150 DATA 



16.0A 
3C,FE : 
75,07 
4A.52 
37,00 
07, F5 
10,05, 
DD,21 
11,11 

01, CA, 
77,08 
77, 0B 
77,10 
00,C9 ; 
03, DD, 
03,00 
00,00 
16,00 : 
A9,00 
00, OC 

02, AA 
16,02 
OC, 16 

00, OC; 

15,00. 
0C.15, 
05, Ci 
00,OC ; 
00,00 
FF, 01 
00,05. 
00,00 ; 
OC, 15, 
OC,0D : 
00, OC 
OD,02 ; 
OC,0D, 
00,05, 
0C,11 
OC, 15, 
05,00, 
00,00, 
01,00, 
05,00, 
00,05 
00,00, 
OD.OO, 
05,01 
OO.OC, 
00,00, 
OD.OO, 
05,01, 
00, OC 
00,00, 
00,00, 



09,0F 
00, C2, 
DD.74 
3E,68, 
19, DD 
79, DD, 
00,21 
6D,7D, 

00, DD, 
8!1, 7£. 
FE,66 
FE.BB 
FE,OA 
DD,7E, 
77, OC 
18,00 
OC, 16 
00,05 
25,12 
00,00, 

01, OC 
BD,00, 
00,00 
OD,O0, 
05,00 
00,05 
ùû.ûû 
02,00 
05,01 
00,00 
01,00 
OC, 00, 
04,00 

02, BE, 
OD,00 
8E,00, 
02, 8E 
01,00, 
05,00 
00,05. 
00,00 
OC, 16, 
00, OC 
00,00 
01,00 
05,01 
00,05 
00,00, 
16,00 
00,02 
00,05 
00,00. 
16,00 
OC, 02 
00,05 



10,12, 1A.0E 
10,7E,AF,DD, 
0B.C9.DD.2t 
DD, 36, 00,01 
36, 09, 05, DD 
77,0C,C6,28, 
7E,7D,DD,36, 
06,05,C5,DD, 
19,10,F0,C9 
FE,02,CA,9A 
DO, DD, 36, 00 
DO, M, 36, 00 
DA,BF,7E,FE 
OC, 06, 03, DD, 
C9, OC, 00,04 
DD, 00,32,01 
02,3F,01,0C 
01,OO,O0,0C 
05,01,00,00 
00,05,00,00 
15,00,05,00 
0C,15,04,BE 
05,01,00,00 
00,05,01,00 
00,00,05,01 
00,00,00,05 
ÛC,i6,02,9F 



04,00,00,00 
00, 00, OC.OD 
OC.OD, 02, 8E 
00, OC, OD, 02 
00,00,05,01 
00,0C, 11,05 
00,OC,15,00 
00,05,00,00 
0C,15, 00,05 
00, OC, 15,00 
00,0C,02,02 
00,00,05,01 
00,00,00,05 
05,FF,01,00 
00,00,05,01 
0D,00,00,05 
05,01,00,00 
00, OC, 16,00 
00,00,OC,02, 
01, 00, 00, OC 
OC, OD, 00,00 
00,05,01,00 
02,00,00,0C : 
01, 00. 00, OC 
OC, 00,00,00 
00,05,01,00 
02,00,O0,0C 

01, 00,00,0c 



32,08 
0D,CD. 
70,06 
75,07, 
OA.OB. 
FI, 11, 
02, DD, 
CD,7A : 
BF.7E 
C9,DD 
C9,DD 
C9.DD 
DA,C8 
0C.C9 
02,01 
01,00, 
00,05 
02, A8 
00,00 
05,01 
00,05 
5C,12 
02,00 
OC.OD 
OO.OC 
00,00 
OC, 1S 



05,01 
00,05 
OC, 15, 
OO.OC 
OO.OC 
00,00 
00,00, 
05, FF 
00,00 
01,00 
OO.OC, 
00, OC. 
00,00, 
OC, 16 
OO.OC 
00,00 
OD.OO 
05,01 
00,05, 
00,00 
00,00 
OC, 16 
00,05 
00,00 
00,00 
OC, 16 
00,05 
00,00 




,7F. 


DD,7E,0D,2A8 


5C 


7D,09,DD,726 


,05 


OE, 46, 21, 506 


DD 


74,08,11,519 


,DD 


77,0B.C6,4BE 


11 


00,DD,19,61B 


36 


22,02,C9,5F3 


7E 


DD,E1,C1,8BE 


DD 


7E,00,FE,744 


7E 


0B,3D,DD,7FF 


7E 


0B,X,DD,713 


7E 


10,3C,DD,744 


7E 


DD,36,10,7FA 


DD 


7E,0C,C6,75F 


03 


01,02,01,247 


00 


00,00,01, 1B4 


01 


0O,0O,0C,097 


00 


0C,15,04,0F9 


00 


05,01,00,105 


00 


00,OC, OD,03D 


01 


00, OO.OC, 0E5 


05 


01, 00, 00,22c 


00 


05,01,00,030 


02 


BE,00,OC,104 


OD 


02,9F, 00, ODA 


OC 


16,O0,OO,04E 


00 


Ob,ôi,00,ùFO 


00 


OO.OC, OD.04E 


00 


00,00,05,029 


00 


05,O0,O0,lCF 


15 


00, 05,01, 0D6 


02 


02,8E,00,OBD 


05 


01,00,00,040 


00 


05,01,00,105 


01 


00, 00, OC, 12F 


05 


01.00,00,009 


00 


0C,0D,00,0E9 


15 


04,00, 00,OBA 


OD 


02,7F,00,OC2 


OC 


00,00,00,045 


00 


00,05,01,132 


02 


00,00,05,038 


OC 


00,00,00,039 


00 


05,00,00,029 


00 


00,00,16,050 


01 


00,00,00,026 


05 


00.00,00.031 


00 


O5,01,0O,02A 


00 


00,05,01,050 


01 


00, 00, OC, 03F 


05 


00,00,00,031 


00 


05,01,00,02A 


00 


00,05,01,050 


01 


00,00,OC,03F 


05 


00,00,00,031 



2T60 DATA 
2170 DATA 
2180 DATA 
2190 DATA 
2200 DATA 
2210 DATA 
2220 DATA 
2230 DATA 
2240 DATA 
2250 DATA 
2260 DATA 
2270 DATA 
2280 DATA 
2290 DATA 
23O0 DATA 
2310 DATA 
2320 DATA 
2330 DATA 
2340 DATA 
2350 DATA 
2360 DATA 
2370 DATA 
2380 DATA 
2390 DATA 
2400 DATA 
2410 DATA 
2420 DATA 
2430 DATA 
2440 DATA 
2450 DATA 
2460 DATA 
2470 DATA 
2480 DATA 
2490 DATA 
2500 DATA 
2510 DATA 
2520 DATA 
2530 DATA 
2540 DATA 
2550 DATA 
2560 DATA 
2570 DATA 
2580 DATA 
2590 DATA 
2600 DATA 
2610 DATA 
2620 DATA 
2630 DATA 
2640 DATA 
2650 DATA 
2660 DATA 
2670 DATA 
2680 DATA 
2690 DATA 
2700 DATA 



05,01 
D5,CD 
53, OB 
3E.01 
BC,3E : 
BC.BC 
CD,BC, 
84.CD, 
58,84, 
3E.01 
21, F5 
E5.C5 
01, FI 
04,84 
DD.7E 
El, Cl 
DD,22 
BE.82 
38,83 
DD.E5 
30, FE, 
10, CA 
21,2F 
80,82 
84,32. 
84, FE. 
ED.5B 
DD, 19 
19,22, 
86,02 
77,07, 
AA.BC, 
00, CB, 
0A,84 
00,00, 
00,00, 
00,00, 
00,00 

00,00, 

OF.OF 
00,00, 
00,00 
00,OC 

00,00 

00,00, 
00,00 
00,00 
00,00 
00,00 
OA.OA 
0F,FF 
FF,04 
01,01 
01,00 
00,01, 



,00,00,0c 

,A7,BC,D1 
, 84.iA.32 
,21,19,84, 
,02,21,24, 
,3E,03,21 
,BC,3£,05 
,BC,8C,3E 
,CD,BC,BC. 
,32,04,84 
,83,01,00, 
,DD,E5,FD 
,FB,ED,4D 
,C9,06,03 
,00,FE,00 
,DD,19,10 
,05,84,DD 
,3E,0F,FD 
,C3,4F,82, 
,FD,E5,FD. 
,09,C2,4F. 
,34,B2,FE, 
,83,3D,FE, 
,2A,07,84. 
,0A,84,32, 
,64,CA,17 
,0B,84,DD, 
,C3,BF,82 
, 05,84, C9, 
,CD,0F,B3, 
,FD,36,08, 
,DD,7E,00 
,29,C9,3E 
,23,7E,32 
,00,00,0F 
,03,00,00 
,00,00,00, 
,Ûû,ÛF,OF 
,05,00,00, 
,00,00,00 
,00,00,0F 
,06,00,00 
,00,00,00 
,00,00,00 
,04,02,00 
,00,00,00 
,00,00,00 
,00,00,00 
,00,00,00 
,FF,01,01 
,02,82,03 
,03,50,01 
,00,02,0* 
,04,05,FE. 
,OC,FF,01 



00,00,00, 

F1,FE,00, 

0D,84,3E. 

CD.BF.BC 

84,CD,BF 

32,84,CD 

21,46,84 

07,21,54. 

AF,32,09 

2A,0B,B4. 

81,11,05 

E5,CD,EC, 

3A,04,84, 

0D,2A,05. 

CA,13,82, 

E5,DD,7E. 

7E,00,FE. 

21,2F,B3, 

3E,0F,FD, 

77,06,CD, 

82,FD,36, 

11,CA,3D, 

00,CA,DC, 

23,7E,FE 

0A,83,2A. 

83,FE,65 

19,3D,FE, 

DD,6E,00, 

DD,7E,00, 

FD,75,03 

00,FD,E5 

FE,00,C2 

01,32,09 

0A,83,22 

00,00,00 

00,00,0F 

02,00,00 

00,00,00 

00,05, OF 

05,00,00 

00,00,00, 

00,01,00 

03,02,00. 

00,00,00. 

00.00,00 

03,03,00. 

00,00,00, 

00,00,00. 

00,00,00. 

00,0A,82 : 

01,03,03, 

01,14,02 

FF,05,01 

01,02,01 

00,00,03 



,00,00,00 
,F5,83,CA 
,21,0F, 84. 
,02,21,20. 
,3E,03,21, 
,BC,3E,04 
,BC,BC,3E, 
,CD,BC,BC. 
,32,0A,84 
,22,07,84. 
,C3,D7,BC, 
,FD,E1,0D 
,FE,00,CA 
,C5,DD,E5 
,6A, 82,11 
,3C,32,04 
,C0,AF,32 
,4F,B2,3E 
,5C,83,C3 : 
,82,FD,E1 
,0F,C9,DD, 
,FE,13,CA, 
,11,09,00, 
,C2,A6,82 
,84,23,23 
,1F,B3,DD 
,CA,CD,B2, 
,66,01, ED 
,77,00,00, 
,74,04,00 
,3A,0A,64 
,BC,C9,3A 
,C3,8E,82, 
,84,C3,8E 
,00,00,00, 
,00,00,04 
,00,0F, 00, 
,00,00,00 
,00,00,05, 
,OF,OF,00 
,01,00,00, 
,00,00,00 
,00,0F, 00, 
,00,00,00 
,00,00,00 
,00,00,00 
,00,00,00, 
,00,00,00 
,00,00,00, 
,01,01,14 
,03,02,OA, 
,04,01,07 
,FF,01.03, 
.05.0A.FF 

.::. :■:,:■: 



:e,; ; ,-e 

DD.BCED 

CD,BC,K 

84,C0,BC 

2B,84,CD, 

21,39,84 

06,21,4A 

3E,08,21 

32,0A,83, 

C0.BE,82. 

F3,F5,D5, 

El, Cl, El 

F9,81,32, 

11,01,00, 

05, 00, DD, 

84,00,23 

0A,83,C3, 

0F,FD,21 

4F,82,F5, 

DD,E1,F1 

7E,04,FE ; 

46,82,FD 

FD,19,C3, 

AF.32, 

7E,22,07, 

2A,0D,B4 

11,02,00 

5B,0B,84 

6E.01.DD 

7E,03,FD 

FE,0O,CA, 

09,84,FE 

3E,01,32 

82,00,01 

05,0F, 00, 

00,00,00 

00,00,02, 

19,0F, 00 

00,00,00, 

00,00,05 

00,0F, 00 

02,00,00 

00,00,00. 

00,00,00 

00,00,00, 

00,00,07 

03,00,00, 

00,00,00 

03,01,00, 

FF, 01, 01 

FF, 08,05 

01,03,02 

01,OA,01 

02,02,01 

00,00,00, 



21D 
AAE 
4F7 
5D3 
5EB 
5F8 
667 
6B3 
611 
45F 
895 
CC6 
86A 
583 
664 
6DE 
701 
62C 
722 
BD6 
745 
7C8 
629 
62C 
3A9 
7B1 
634 
760 
685 
70C 
70C 
875 
4FC 
46F 
025 
016 
013 
048 
OIE 
046 
022 
009 
020 
000 
006 
OOD 
OOB 
000 
004 
2CC 
3B6 
181 
231 
22E 
119 



JUMPY-JOE 



Hervé SCHIGEOWSKI 



Valable pour CPC 464, 
CPC664etCPC6128 



Encore une fois vous êtes le 

héros de cette aventure et vous 

devez délivrer non pas une, non 

pas deux, mais sept jeunes filles 

prisonnières. Alors ne vous 

faites pas attraper par les 

fantômes. Le mode d'emploi 

est inclus dans le programme. 



10 ■ 


xxtxxxxxxxxxxxxxxxxxxx 


>LA 


X 






20 ' 


• JUMPY-JOE 


>LB 


x 






30 ' 




>LC 


x 






40 ' 


i par 


>LD 



60 



100 
i 

110 
120 
130 
140 ' 
DE JEU 
150 ' 



>LE 



SCMGEOWSKI Hervé >LF 



le 21/aars/1989 >LH 



xxxxxxxxxxxxxxxxxxxxx >BB 

>RC 

m 

>IE 



xn PRESENTATION ET REGLES >RF 

XXX 

>SG 

160 HODE 1:CLEAR >LL 

170 INK 0,0:B08DER 0.-INK 1,6,24:PEN >TC 
1:L0CATE 16,12:PRINT"JuWÏ J0E":L0 . 

CATE 16,13:PR1NT" ":1NK 2,1 / 

8:L0CATE 12,2:PEN 2:PRINT'SCHIGE0US 
Kl Herve":L0CATE 16,6:PRINT"present 
e":LÛCATE 15,1B:PRINT CHS1(164);:PR 
INT'KARS 1989' 




sss 



1B0 l»=CHR»<12B):b»="<UNE TOUCHE S. >KP 
V.P>":F0R F=l T0 18:L0CATE U*F,24: 
INK 3,1S:PEN 3:PRINT [1ID*(b*,F,l);i 
>:F0R 0=1 T0 40:NEXT U,F 
190 A»=1NKET»:1F Al=" THEN 190 >IC 
200 MODE 2: INK 1,24: INK 0,0:PEN 1 >ZD 
210 L0CATE 33,1:PRINT"REGLES DU JEU >CN 
:":L0CATE 33,2:PRINT" " 

220 L0CATE 1,5:PR1NT" JUHPÏ J0E,n >HI 
otre héros, doit délivrer sept jeune 
s filles que l'infaie sorcier GA1T / 
H a capturées et enfenees dans des 

cages ,au souet de ses sept tours 

lale-fiques." 

230 PRINT" Pour délivrer une f II I >JÏ 
e,il doit pénétrer dans une des tou 
rs et raïasser huit clefs. Lorsqu'il 

les aura prises, une neuvieie clef 
apparaîtra. Cette dernière lui pêne 
ttra d'ouvrir la cage et l'une des 
sept filles sera enfin libre.":: 
240 PRINT" Il devra opérer de ieie d >RF 
ans les six autres tours afin que t 
outes les filles soient délivrée 
s! 

250 PRINT" Halheureuseient.des uns >DC 
très occupent chaque étage des tour 
s et palpent l'ener-gie de toute pe 
rsonne qu'ils capturent. lorsque l'e / 
nergie de leur victiie atteind-20-, 
ils peuvent la dévorer... Alors atte 
ntlon JUHPÏ JOE! 

260 PRINT'Fort heureuseient,des sac >AQ 
s d'énergie sont là et peraettent i 



'augmenter le taux d'énergie de la 
personne qui les consoue. 
270 PRlNT"Hals attentlon.au fur et >ÏJ 
a «sure que JUHPÏ JOE délivre des 
filles et penettre dans une autre / 
tour, son énergie de départ est de p 
lus en plus basse et il doit donc 
redoubler de prudence et d'adresse 

2B0 PRINT'La partie n'est gagnée qu >CU 

e lorsque les sept jeunes filles so 

nt délivrées. ' 

...BONNE CHANCE.... 
290 ■»=CHR*(128l:b»="<UNE TOUCHE S. >JD 
V.P>":F0R F=l TO 1B:L0CATE 3UF,25: 
PRINT niD«(b*,F,l);i*:F0R 0=1 T0 40 
:NEÏT U,F 

300 A«=INKEY»:IF M=" THEN 300 >IH 
310 ' >RE 

320 ' mi DEFINITIONS mx >RF 
330 ■ >RG 

340 record=500 >TK 

350 DEFINT A,B,E, 1,J,S,U,V,M,Y,Z >Dr 
360 PARTIES >LA 

370 SÏHB0L AFTER 199:ENT 1,121,1,2: >CF 
ENÏ 1,1,15,1,9,-1,4,5,0,1 
360 DEF FN ECR(L,C)=TEST((16IL)-9,( >PL 
(25-C)xl6>*7> 

390 SÏHBOL 200,60,36,60,255,60,60,3 >FE 
6,102 

400 SÏHBOL 201,255,129,66,60,60,66, >HD 
129,255 ' 

410 SÏHBOL 202,255,129,255,129,255, >HL 
129,255,129 
420 SÏHBOL 203,28,62,107,107,127,12 >HD 



7,85,85 

430 SYHBOL 204,189,165,126,60,60,60 >HG 

,36,195 

«40 SVHBOL 205,153,90,60,255,255,60 >H2 

,90,153 

450 SVHBOL 206,0,0,6,9,249,166,160, >CA 



460 SVHBOL 207,255,170,170,170,170, >HB 

170,170,170 

470 SVHBOL 208,170,170,170,170,170, >H0 

170,170,255 

480 SVHBOL 209,255, 171,175, 169, in, >HH 

177,191,191 

490 SVHBOL 210,161,177,185,175,171, >HJ 

170,170,255 

500 SVHBOL 211,255,213,245,148,141, >KN 

141,253,253 

510 SVHBOL 212,133,141,157,245,213, >KL 

85,85,255 

520 SVHBOL 213,255,85,85,85,85,85,8 >FH 

5,85 

530 SVHBOL 214,85,85,85,85,85,85,85 >FK 

,255 

540 SVHBOL 215,255,129,195,189,189, >HP 

195,129,255 

550 SVHBOL 216,24,36,25,255,152,60, >GH 

126,36 

560 EN=400:ffll=400:CLE=0:B08DEB 0:S >PN 

-0:60T0 630 

570 EN=350:EN1=350:GOT9 630 >VH 

580 EN=250:EH»=250:GOTD 630 >VL 

590 EN=150:H1=150:G0TO 630 >VK 
600 EN=100:EN1=100:G0T0 630 >VQ 
610 EN=70;EN1=70:G0T0 630 )UD 
620 EN=40:EN1=40:G0T0 630 >TG 
630 GOSUB 1200 >PD 

640 I=3:Y=23:BESTQRE 1610:F0R 1=1 T >ED 
5 
650 BEAD I(I),V(1):L0CATE XII), VII) >DB 

:PEN 2:PRINT CHRX2Û3); 
660 HEIT 1:PEN 1 >HA 

670 ' >TD 

680 ' »»« Boucle Principale >» >TE 
690 ' >TF 

700 IF FD=1 THE» FD=0:GOTO 790 >IV 
710 V=(ï-7)/4:IF V<1 THEN V=l >UH 
720 FOI l=ï TO V*l >U 

730 IF BND>0.8 THEN GOTO 760 ELSE L >FH 
8CATE X(I),T(1):IF FM ECSCK I ), VC 1 ) 
-1)00 THEN PaiNT CHU(202);ELSE PB 
1NT • ■; 

740 X(I)-I(I)«(I(1»I)-(I(1XI):UIC >BV 
ATE X(I),V(I):PEN 2:PIINT CHMI203) 
:PEH 1 
750 IF 1(1)4 AMD ïll)=ï THEN IF EN >I2 



>20 THEN EN=EN-10:S0UND 1,200,0,3,1 
,1:WHILE SQU»127:IIEND:FD=1:G0T0 7 
90 ELSE GOTO 1050 

760 NEXT I >PB 

770 IF INKEV(9)=0 OB INKEÏ(76)=0 T >0U 
HEN IF 1-15 AND T=3 AND C=0 THEN GO 
SUB 1650:ELSE GOSUB 930 
780 IF INKEY<66)=0 THEN STOP m 
790 IF !NKEV<0)=0 OB INKV(72)=0 TH >JK 
EN IF FN ECB(X,T-l)O0 THEN Ï=V-4:L 
OCATE I,Ï*4:PBINT CHB»(202):EN=EN-4 
:GOTO 830 ELSE GOTO 830 
800 IF INKEÏ(1)=0 OB INKEV<75)=0 TH >BF 
EN IF ¥=3 AND 1=15 THEN 1=1 :ELSE 
IF I>38 THEN X=I ELSE X=I*1:S=S»1:E 
N=EH-1:L0CATE I-1,V:IF FN ECfi(X-l,V 
-1)00 THEN PBINT CHBK202) : :GOTO S 
30 ELSE PBINT • «;:GOTU 830 
810 IF INKET(2>=0 OB INKEV<73)=0 TH >VG 
EN IF FN ECI(X,Y*3)O0 AND V<23 THE 
N Y=Y»4:L0CATE I,ï-4iPBINT ■ ■;:SOT 
830 ELSE GOTO 830 

820 IF INKET(8>=0 OB INKE¥<74)=0 TH >UJ 
EN IF V=3 AND 1=15 THEN I=X: ELSE I 
F I<3 THEN X=X ELSE I=X-1:S=S*1:EN= / 
EN-1:L0CATE I*1,T:IF FN EC8(X+1,V-1 
)O0 THEN PBINT CHMI202); ELSE PII 
NT ■ ■; 

830 LOCATE I,V:PBINT CHBN200); >lfl 
840 LOCATE 7,1:PEN 2:PBINT US1NG 'I )H2 
llll';S:LOCATE 33,1:PBINT USING 'Il 
ll','EN:PEN 1 

850 IF EN=0 THEN SOUND 1,264,100,7, >EB 
,1:W1LE SQ(1)>127:UEND:G0SUB 1900: 
GOTO 1070 

860 CALL 4BB03:G0T0 700 X)H 

870 FOB 1=1 TO 5:L0CATE KI),V(1):1 >DL 
F FN E«(X(l),V(l)-l)O0 THEN PBINT 
CH1X202); ELSE PBINT ' •; 
880 HEIT I >PE 

890 GOTO 640 >AD 

900 ' >1K 

910 ' >•• SAUT l«< >TA 

920 ' >TB 

930 LOCATE I,V:PBINT ' ';:LOCATE I, >AD 
Ï-1:PBINT CHB«(204)j 
940 ON FN ECI(I,V-2)tl GOTO 950,960 >JD 
,970,980 

950 EN=EN-1:S0UND 1,80,10,7:G0T0 10 >EH 
00 

960 EN=EN-1:S0UND 1,80,10,7:L0CATE >GT 
I,V-1:PBINT CHfi»<202>;:L0CATE I,V:P ,' 
BINTCHB«(2O0);:G0T0 1010 » 

970 EN=EN450:ENT 2,100,-10,1:SOUND >HL 
1,478,50,7,, 2:L0CATE Ï,Ï-2:PBIMT' ■ 



;:GDTO 1000 

980 LOCATE X,V-2:PBIMT ■ ■; >VC 
990 S=S«40:CLE=CLE*1:SOUND 1,200,15 >TV 
,7:S0UND 1,360,15,7:L0CATE 31,3:PEN 

2:PBINT CLE:PEN 1:C=C-1::IF C=0 TH 
EN GOSUB 1650:ELSE GOTO 1000 
1000 LOCATE I,V-liPBINT ■ ";:LOCATE >CT 

I,V:PBINT CHBK200);: 
1010 BETURN >EF 

1020 ' >IF 

1030 ■ •» DEVOUE «H >IG 

1040 ' >IH 

1050 SOUND 1, 424,100,7,, 1:F0B u=0 T >AN 
2500 i NEXT: GOSUB 1900 
1060 WHILE SQ(1)>127:NEND >UK 
1070 IF EN<20 THEN EN=EN1 >TH 
1080 LOCATE I,V:IF FN EC8(I,V-l)O0 >VZ 

THEN PBINT CHBK202); ELSE PBINT ' 

■• 

1090 FOI A=0 TO 3000:NEXT A:GOTO 11 >CG 

20 

1100 ' >IE 

1110 ' m PABTIE PEBDUE m m 

1120 ' >XG 

1130 HODE 1: BOBDEt 1:1WC 1,24:PEN >PJ 

ltLOCATE 2,5: 

1140 PBINT "VOTBE SC08E FINAL EST D >LL 

E:"iS 

1150 PBINT:PIINT:PBlNTiPKlNT:PBINT' >EC 

VOUS AVEZ ECHOUE AU TABLEAU'; PABTIE 



1160 IF s>record THEN record=s 

1170 PBINT:PBINT:PBINT:PIINT:PB1NT' 

IECOBD:';record:PIINT:PBINT:PBINT:P 

IINT:PBINT 'VOULEZ-VOUS IEJOUEB ? ( 

0/N):"j 

1160 IF INKEV(34)=0 THEN 350 ELSE I 

F 1NKEV(46)=0 THEN CALL &BB03:G0T0 

1970 ELSE 1180 

1190 ' 

1200 ' m TfiACE DU JEU m 

1210 HODE 1:INK 0,0:BOBDEB 0:INK 1, 

24:L0CATE 14,12:PEN 1:PB1NT'PBEPAIE 

Z-VOUS": 

1220 SOUND 1,478,13,7:S0UND 1,0,1:S 

OUND 1,478, 13,7:S0UND 1,379,13,7:S0 

UND 1,478,13,7:S0UND 1, 379,13, 7:S0U 

ND 1,319,13,7:S0UND 1,379,13,7:S0UN 

D 1,319,13,7:S0UND 1,239,70,7:F0B A 

=0 TO 3500:NEXT 

1230 HODE 1:1»! 0,1:IHK 1,1:INK 2,1 

:INK3,1:PAPEB0 

1240 BESTOBE 1490:PEN 1 

1250 FOI 1=6 TO 24 STEP 4:F0Ï J=2 T 

39 



>zu 

>CA 



>GH 



>TD 
>XF 
>GN 



>IN 



>BJ 



>IA 
>CA 
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1260 LDCATE J,i:PSINT CHBK201); >AI 

1270 NEIT J:NEIT I >«B 

1280 )=1:F08 1=5 TO 24:L0CATE 1,1 :P >AF 

Il NT CHI»(215):NEÏT 1 

1280 j=40:F0R 1=5 TO 24:L0CATE j,l: >BJ 

PI1NT CHR»(215):NEÏT 1 

1300 FOI 1=1 TO 40:J=4:L0CATE 1 , 1 : P >AC 

B1NT CHR«(201):NEXT i / 

1310 LOCATE 16,2:PI1NT CHM(207);CH >HT 

11(209) iCNR»(211) ;CHI»(213) 

1320 LOCATE 1B,3:PRINT CHM<206);CH >HP 

M(210);CHR»(212);CHR»<214) 

1330 FOI 1=1 TO 8:READ I,Y >TH 

13*0 FOI J=0 TO 2:L0CATE Ï,Ï*J:PR1N >PU 

T CNE» (202); 

1350 NEIT J:HEXT I >ltû 

1360 PEN 2:F0R 1=1 TO 5;IEAD I,ï;LO >PC 

CATE X,Y:PRINT CHRt (205);: NEIT I 

1370 PEN 3:F0I 1=1 TO S:IEAD I,ï:LO >PJ 

CATE I,Y:PRINT CHM(206);:NEIT 1 

1380 LOCATE 1,1:PEN 2:PIINT 'SCORE: >NF 

■;USIHG •IIHI";S: 

1390 LOCATE 25,1:PEN 2:PIINT 'ENERG >KH 

IE: ■;: 

1400 LOCATE 1,3:PRINT'NIVEAU: " ;PA >HB 

RT1E 

1410 LOCATE 25,3:PRIHT"CLEFS:";CLE: >EB 

1420 LOCATE 2,25:PRINT"<UTILISEZ LE >I1X 
JOYSTICK OU LES FLECHES) 

1430 C=8 >VF 

1440 1NK 1,15:INK 2,24: INK 3,18 >IA 

1450 IETUIN >FD 

1460 ' >YD 

1470 ' m COORDONNEES ECHELLES ■•• >YE 

1460 ' >YF 

1490 DATA 15,5,7,9,20,13,30,13,9,17 >TD 

,24,17,15,21,31,21 

1500 ' >ÏJ 

1510 ' »< COOIDONNEES ENERGIE m >IK 

1520 • >YA 

1530 DATA 7,5,30,9,7,13,33.17,16,21 >A1 

1540 ' >YC 

1550 ' •« COORDONNEES RECOMPENSES >YD 
II* 

1560 ' >YE 

1570 DATA 18,5,15,9,10,13,31,13,14, >UH 
17,29,17,6,21,22,21 

1580 ' >YG 

1590 > m COORDONNEES INITIALES D >YH 
ES MONSTRES >i> 

1600 ' >IK 



1610 DATA 36,7,3,11,36,15,3,19,36,2 >BJ 

3 

1620 ' >YB 

1630 ' ••• NIVEAU TERMINE lu >YC 

1640 ' >YD 

1650 LOCATE 15,1: INK 3,1,26:PEN 3:P >FN 

RINT CHR«(206);:IF FN ECt(X,Y-2)O0 

THEN GOTO 1660:ELSE IETUIN 
1660 LOCATE I,Y:PRINT" a ;:LOCATE I, >GU 
Y-1:PRINT CHI«(204);:L0CATE I,Y-2:P 
8INT" ";:LOCATE {.MiPIMT* ";:LOC 
ATE I,Y:PEN 1:PIINT CHM1200); 
1670 INK 3,6,26:PEN 3:L0CATE 18,2:P >FK 
RINT CH1*(207);CHM(209);CHM(211); 
CHMI213) 

1680 LOCATE 18,3:PRINT CHR»(20B);CH >FC 
Rll210);CHR»(212l;CHI»l214):PEN 1:L 
OCATE 16,3:PI1NT CH1N216) 
1690 s=s«500:LOCATE 7,1:PEN 2:PRINT >UJ 

USING 'llllt';S:FOR a=0 TO 3000:NE 
II 

1700 LOCATE 11,12:PEN 3:PR1NT" NIV >EE 
EAU SUPE8IEUI... ":LOCATE 11,11:PR 
INT" ■:LOCATE 

11,13:PRINT* 

":SOUND 1,319,70,7:S0UHD 1,426,10, 
7:S0UND 1,0,2:S0UND 1,426,10,7:S0UN 
D l,O,2:S0UND 1,426,10,7:S0UND 1,0, 
2 

1710 SOUND 1,426,10,7:S0UND 1,0,2:S >KH 
OUND 1,426,10,7:SOUND 1,0,2:SOUND 1 
,426,12, 7:S0UND 1,506, 12,7:S0UND 1, 
426,20, 7:S0UND 1,319,80, 7:F06 a=0 T 
2OO0:NEIT:PARTIE=PAITIE*l:CLE=O 
1720 ' >YC 

1730 ' >•• DIFFERENTS NIVEAUX m >YD 
1740 ■ >tE 

1750 IF PART1E=2 THEN FOI A=0 TO 60 >UH 
00:NEIT :G0T0 570 

1760 IF PARTIE=3 THEN FOI A=0 TO 60 >UL 
00:NEIT :G0T0 580 

1770 IF PAITIE=4 THEN FOI A=0 TO 60 >UP 
00:NEXT :GOTO 590 

1760 IF PAITIE=5 THEN FOI A=0 TO 60 >UH 
00:NFJT :G0T0 600 

1790 IF PAITIE=6 THEN FOI A=0 TO 60 >UL 
00:NEIT :GOTO 610 

1800 IF PA8TIE=7 THEN FOI A=0 TO 60 >UE 
00:NEIT :GOTO 620 

1810 ' >YC 

1820 ' m PARTIE GAGNEE Ml >YD 
1830 ' >YE 

1B40 MODE 2:INK 0,0:INK 1,24:PEN 1 >ZA 
1850 LOCATE 36,1:PRINT"BRAV0...":PR >UC 
INT:PR1NT:PIIHT:PIINT:PN1NT" Tu e 



s vralaent un as JUHPY JOE. . . Tu as 
réussi a délivrer les sept filles. 
..•:PRINT:PIINT:P8INT' 

Encore bravo! 
1660 IF s>record THEN record=s >ZD 
1870 PtlNT:Pt!NT:PRINT • >QZ 
VOTDE SCORE FINAL EST DE:";S:P81NÎ: 
PRINT:PIINT" RECORD: ";reo 
ord:PIINT:PHNT:PRINT' VO 
ULEZ-VOUS REJOUER ? (0/N):"; 
1880 SOUND l,402,9O,7:S0UND 1,451,2 >LY 
0,7:S0UND l,476,40,7:SOUND 1,402,20 
,7:S0UND 1,301,40,7:S0UND 1,268,20, 
7:S0UND 1,238, 100, 7: SOUND 1,301,80, 
7 

1680 IF INKEY(34)=0 THEN 360 ELSE I >GE 
F INKEY(46)=0 THEN CALL IBB03:G0T0 
1970 ELSE 1880 

1900 ' Ml MORT •<• >YC 

1910 ' >YD 

1920 CLS:BOIDEI 0:FOt 1=19 TO 21:F0 >CJ 

I )=2 TO 19:L0CATE i,J:INK 0,0:1NK 
1,6:PEN l:PIINT'i':NEIT:NEn:FOt 1= 

II TO 29:F0R )=5 TO 7:L0CATE i,j:PB 
INT'i':NEXT:NEIT:LOCATE 16,6:INK 2, 
24:PEN 2;PIINT"JuTIPY JOE" 

1930 INK 3,6,24:PEN 3:L0CATE 13,22: >HA 
PIINT'VOUS AVEZ PERDU..." 
1940 SOUND 1,478, 100,7:S0UND 1,0,5: >IZ 
SOUND 1,47B,80,7:S0UND 1,0,5:S0UND 
1,478,20,7:S0UND 1,0,3:S0UND 1,478, 
100,7:SOUND 1,0,5:S0UN0 1,402,70,7: ' 
SOUND 1,0,5:S0UND 1,426,20,7:S0UND 
1,0,5:S0UND 1,426,60,7 
1950 SOUND 1,478,20,7:S0UND 1,0,5:S >QQ 
OUND l,47B,8O,7:S0UND 1,0,5:S0UND 1 
,506,20,7:SOUND 1,0,5:S0UND 1,478,1 
00,7:RETU8N 

1960 ' >YJ 

1970 'mu AU IEVOII >•>•■ >YK 
1980 ' >ZA 

1990 CLS:HODE 0: INK 0,24:B08DEI 24: >EB 
INK 1,6,24:L0CATE 6,13:PIINT'AU IEV 
011...' 

2000 SOUND 1,284, 60, 7: SOUND 1,319,9 >KF 
0,7:S0UND 1,379,30,7:S0UND 1,0,3:S0 
UND 1,379,60,7:S0UND 1,478, 60, 7: SOU 
ND 1,426,90,7:S0UND 1,478,30,7:S0UN 
D 1,426,60,7 

2010 SOUND 1,379,30,7:S0UND 1,426,3 >EL 
0,7:S0UND 1,478, 80, 7: SOUND 1,568,30 
,7:S0UHD 1,0,3:S0UND 1,568,60,7:SOU 
ND 1,638,60,7:SOUND 1,478, 120,7:F0R 
A=0 TO 6000: NEIT: MODE 2:INK 0,1:IN 
K 1,24:B0RDER 1:END 
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UTILITAIRE 



Calendrier 



Bernard POYAU 



Valable pour CPC 464, 
664 et 61 28 



Ce programme de calendrier 

perpétuel est valable pour 

la période du 1er janvier 1601 

au 31 décembre 2399. 

Il propose 4 options : 

- La première permet de connaître le 
JOUR DE LA SEMAINE correspondant 
à n'importe quelle date. 

- La seconde permet de savoir combien 
de JOURS se sont écoulés ENTRE DEUX 
DATES. 

- La troisième permet de connaître la DA- 
TE DES trois FETES MOBILES (Pâques, 
Ascension et Pentecôte). 

-La dernière, enfin, offre le CALEN- 
DRIER de l'année, à l'écran ou sur im- 
primante au choix (testé sur DMP 2000). 

A ce sujet, vous trouverez en prime, 
aux lignes 2600 à 2860 un sous-program- 
me de téléchargement permettant à l'im- 
primante d'imprimer les caractères d'un 
tableau. 

Les caractères redéfinis sont : 




Ce sous-programme pourra être repris 
tel que dans vos propres programmes. Il 
est nécessaire d'imprimer avec un inter- 
ligne de 7/72 pouce pour que les caractères 
se touchent. 

En ce qui concerne l'ensemble du pro- 
gramme il faut noter que la numérotation 
n'est pas continue (Attention en saisie AU- 
TO). Les sauts se situent au niveau des 
REM. Il m'a semblé préférable de faire 
commencer les différents sous-program- 



chr$(0) : 


cht$(l) : - 


chr$(2) : 


chr$(3) : 


chr$(4) : 








chr$(5) : 




chr$(6) : 


chr$(28) : 


chr$(29) : 




chr$(30) : 


chr$(31) : 



mes à partir de lignes en 100, de façon à 
diminuer les risques d'erreur de saisie (il 
est facile de saisir un GOSUB 3620 et il 
faut savoir que CE TYPE D'ERREUR 
NEST PAS DETECTABLE PAR L' AN- 
TI-ERREURS. Il vaut donc mieux saisir 
un GOSUB 3200). 

Tous les branchements se font à la 
première ligne utile des sous-programmes. 
Les lignes de REM sont donc facultatives. 

Enfin la plupart des codes de contrôle 
utilisés ont été placés dans des variables 
(il est plus simple de taper IVS que 
CHR$(24) par exemple. .. ). 

Bonne frappe. . . 
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JANVIER 


LU 


MA 


ME JE VE 


SA 


Dl 
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FEVRIER 


LU 


MA 


ME JE VE 


SA 


DI 
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MARS 


LU 


MA 


ME JE VE 


SA 


DI 
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ME 
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SA 


DI 
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LU 
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MA 
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SA 


DI 
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PAQUES : 15 AVRIL 
ASCENSION : 24 MAI 
PENTECOTE : 3 JOIN 
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CALENDRIER 



Bernard POÏAU - Octobre 19B9 



INITIALISATIONS 



>LA 
>LB 
>LC 
>LD 
>LE 
>LF 
>LG 



60 INK 0,0: INK 1,26:B06DEE 0:(10DE 1 >BB 

90 DIN H»(12):F0B M TO 12:READ H* >LQ 

(XhHEITI 

100 DATA JANVIER,FEV8IER,IUBS,AVB[L >RA 

, MAI, JUIN, JUILLET,AOUT,SEPTEMBRE,OC 

TOBBE,NQVEHBS£,DECEHBBE 

110 FOR 1=0 TO 6:READ J«(I>:KFJT I >AK 

120 DATA UMD1,HABDI,HEBCBEDI, JEUDI >NJ 

.VENDREDI, SAMEDI, DIMANCHE 

130 a»=CKR*(18l:EF»=CHR»<20):H»=CH >PT 

E*(11):IV*=CHR*124>:T*=CK8$(154» 

140 DIM N»(15):N»(71=M0UB DE LA SE >GB 



HA1NE":N»(9)="N0MB8E DE JOURS ENTRE 
2 DATES':N«(U)='DATE DES FETES HO 
BILES':N»(13)=*CALEH)SIER*:N«<15)=' 
FIN» 
150 ' 
160 ' 
170 ' 
180 ' MENU 



>RG 
>BH 
>BJ 



190 • >TA 

200 MODE 1 MM 

210 PRINT TAB(15)"CALENDRIER';TAB(1 >DI 

5>STR1NMU0,TI) 

220 LOCATE 9,7:PRINT IV*;N»(7);IV» >CT 

230 FOR 1=9 TO 15 STEP 2:L0CATE 9,1 >IT 

.■PBINT NUIhNEIT I 

240 LOCATE 9,24:PIINT "Choix avec ■ >JG 

;CHM(241)i" ou ';CHR«(240);' et CO 

Pï":l=7 



250 GOSUB 3300 >PE 

260 IF B»=CHB«(241> THEN LOCATE 9,1 >LE 

:PBINT N»(I):I=H2 ELSE GOTO 260 

270 IF 1=17 THEN I=7:G0T0 300 ELSE >HH 

GOTO 300 

280 IF fi»=CHB*(240) THEN LOCATE 9,1 >LB 

:PRINT *>(!): 1=1-2 ELSE GOTO 310 

290 IF 1=5 THEN 1=15 >HE 

300 LOCATE 9,I:PRINT I U* ;H*< I ) ; I V* >CF 

310 IF INKFÏ(9)=0 THEN 340 >TG 

320 FOR TP=0 TO 200:NEIT TP >ÏR 

330 GOTO 250 >YK 

340 CH=l/2-2.5:0N CH GOTO 500,700,1 >NK 

000,1500,2500 

470 ' >TB 

480 ' JOUR DE LA SEMAINE ========== >TC 

490 * >TD 

500 MODE 1:PRINT TAB(11!N»<7);TAB<1 >VE 
l)STRIHG«18,Ti) 

510 AN=0:L=10.-G0SUB 2900 >TR 

520 Q=lNT(NJ/7)17:R=NJ-g >UN 

530 LOCATE 1,3:PRINT EFI >TH 

540 LOCATE 1,12:PR1NT "Le';J;:IF J= >TB 
1 THEN PRINT "er '; 

550 PRINT HI(H);A;"est un *;J«(R) >CG 

560 LOCATE 20,25:PRINT "Autre jour >PB 
?<0/N)' 

570 GOSUB 3300 >PK 

580 IF 1»=«0" TKFJ 500 >NV 

590 IF R»="N" THEN 200 >NR 

600 GOTO 570 >ZE 

670 ■ >TD 

660 ' NOMBRE DE JOURS ENTRE 2 DATES >TE 

690 ' >TF 

700 MODE liPBINT TAB(5)NI(9);TAB(5) >UH 
STBING»(29,T») 

710 LOCATE 1,5:PRINT "Preiiere date >LE 
■ ■ 

720 AN=O:L=7:G0SUB 2900 >RH 

730 0=W:A1=A:M1=M:J1=J >TL 

740 LOCATE 1,15:PRINT "DeuileK dat >MQ 
e :■ 

750 AN=0:L=17:GOSUB 2900 >TF 

760 R=NJ:IF R>0 THEN A2=A:N2=H:J2=J >ZC 
ELSE A2=A1:M2=M1:J2=J1:A1=A:H1=M:J 
1=J 

770 DIF=ABS(R-Q) >LW 

760 LOCATE 1,3:PBINT EF* >TQ 

790 LOCATE 1,12:PI1NT I V* ;- 1 1 y a"; >GQ 
DIFj'Jours'sIMrPRINT 

800 PRINT «entre le";Jl;:IF Jl=l TH >IIY 
EN PRINT "er "; 

810 PBINT H»(H1);A1:PRINT TAB(4)'et >TL 
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Ie-;J2; : IF J2=l THEN FRINT "er •; 
820 PRINT H*(H2);A2 >HZ 

630 LOCATE 20,25:PB1NT "Autre calcu >BZ 
1 ?<0/N)" 

840 GOSUB 3300 >PK 

850 IF fi»="0" THEM 700 >NI 

860 IF fi»="N' THEN 200 >NB 

870 GOTO 840 >AD 

970 ' >TG 

980 ' DATE DES FETES H0B1LES ====== >TH 

990 ' >TJ 

1000 HODE 1:PR1MT TAB19>N»(U);TAB( >ÏB 
9)STBING»<22,T») 

1010 AM=1:L=12:G0SUB 2900 >n 
1020 IF A=1954 THEN Q=18:HQ»="AVBIL >Nï 
":GOTO 1100 

1030 IF A=1981 THEN Q=19:HQ»='AVR1L >NA 
":G0T0 1100 

1040 ' Règle de Causa >IH 

1050 B=A HOD 19:D=A HOD 4:E=A HOD 7 >ZG 
1060 IF A<2100 THEN K=S ELSE K=6 >I2 
1070 F=U9»B*24> HOD 30:G=(2lD*4»E* >LH 
6=F+K> HOD 7 

1080 Q=22«F»G >GG 

1090 IF Q<32 THEN HQ«='HABS I ELSE Q >IK 
=FtG-9:«Q«='AVRIL" 

1100 S=Q+39:NS»="HAI» >PC 

1110 IF MQ»="HARS' THEN S=S-61:G0T0 >GU 
1130 

1120 IF HQ»="AVRIL" AND S>61 THEN S >HG 
=S-61:HS«="JUIN* ELSE S=S-30 
1130 T^SiiOîrtTï^'HAI- >PY 

1140 IF T>31 THEN T=T-31:HT»="JUIN" >CY 

1150 IF IHP=1 THEN EETUBN >UY 

1160 LOCATE 1,3:PBINT EF« >UA 

1170 LOCATE 1,B:PBINT "EN";A:PRWT: >KG 

PBINT 

1180 PBINT «PAQUES :";:PBItiT USI >LE 

NG Mil ";Q;:PBINT HQ»:PRIHT 

1190 PBINT 'ASCENSION :"; :P8IHT USI >HC 

NG 'III ";S;:P8IKT HS»:PBINT 

1200 PBINT "PENTECOTE :";:PBINT USI >DF 

NG "III "ïT;:PRIHT HT* 

1210 LOCATE 20,2S:PRINT 'Autre aime >QF 

e ?(0/N)" 

1220 GOSUB 3300 >UD 

1230 IF M='0" THEN 1000 >QR 

1240 IF B*='N' THEN 200 >PY 

1250 GOTO 1220 >HA 

1470 ' >TE 

1480 ' CALENDBIEB ================= >TF 



1490 ' 



>YG 




1500 HODE 1:PBIHT TAB(15)NI(13);TAB >IA 

(15)STRING»U0,T«> 

1510 AN=1:L=12:G0SUB 2900 >TY 

1520 PIINT:PBINT TAB(15HV«s"Un lus >KI 

tant...";IV»:DIH S«(12,6> 

1530 FOB X=l TO 12:H=I:J=1:IF H=4 >TP 

B H=6 01 H=9 OR 11=11 THEN JH=30 ELS 

E IF 11=2 AND JF=28 THEN JH=28 ELSE 

IF H=2 AND JF=29 THEN JH=29 ELSE JH 

=31 

1640 GOSUB 3030:0.= INT(NJ/7)»7:R=NJ- >EH 

Q 

1550 S»(X,l)=SPACE»(31fi):JJ=0:F0R ï >RA 

=R TO 6:JJ=JJtl:S«(X,l)=S»<X,l)f " 

♦STRSUJkNEIT Y 

1560 FOB Y=2 TO 6:F0R Z=0 TO 6:JJ=J >DT 

J*l 

1570 IF J.DJH THEN Z=6:Y=7:G0T0 159 >DA 



1580 IF JJ<10 THEN S*(X,Y)=S»(X,YH >CE 

■ "*STR»(JJ) ELSE S»<I,YI=S«<I,YHS 

TR»(JJ) 

1590 NEXT Z,Y,X:U«="LU HA HE JE VE >H1 

SA Dl" 

1600 LOCATE 1,3:PRINT EF»:LOCATE 15 >«V 

,12:PRINT "ECRAN":FRiNÎ:PRIiiT TABil 

2)"ou IHPRI HANTE": LOCATE 15,24:PRIH 

T "Votre choii <E/I>" 

1610 GOSUB 3300 >IK 

1620 IF R*="E" THEN 1700 >QB 

1630 IF fi»='l' THEN 2000 >QQ 

1640 GOTO 1610 >HG 

1680 ' >ÏH 

1690 'Affichage a l'écran >TJ 

1700 H=0:T=1 >CB 

1710 HODE 2:A«=STR«(A):AN*=" >UN 

1720 FOB 1=2 TO LEN(A»):ANI=AN««MD >VC 

»<A*,X,1)*" ":NEIT XiPfilNT TAB(37)A 

NI 

1730 FOR 1=22 TO 438 STEP 208:FOB Y >RG 

=7 TO 199 STEP 192 

1740 HOVE X,Y:DBAUB 179,0:DRANR 0,1 >JC 

76:DBAUB -179,0:DRA¥R 0,-176 

1750 HOVE X,Y«U2:DRA»fi 179,0:H0VE >YX 

I,Ytl44:DSAWR 179,0 

1760 NFJCT Ï,I )PC 

1770 FOR Y=3 TO 15 STEP 12:F0B X=4 >UD 

TO 56 STEP 26:N=H«1 

1780 LOCATE I,Y:PRINT SPACEIK22-LE >EV 

N(N»(H)I)/2);H«(H):L0CATE X»1,Y*2:P 

RIHT U» 

1790 NEIT X,Y >PF 

1800 HINDOU tl,4,2S,7,12:UIND0N 12, >LQ 

30,51, 7,12:UIHDOU 13,56,77,7,12 

1810 HINDOU I4,4,25,19,24:IIIND0U 15 >QL 



,30,51,19,24:UIND0U 16,56,77,19,24 

1820 FOB I=T TO T*5:F08 Y=l TO 6 >YU 

1830 IF T=l THEN »=X &SE 11=1-6 >YU 

1840 PRINT IU,S»(X,Y) >QE 

1850 NEIT Y,I:IF T=7 THEN 1BB0 >IZ 

1660 LOCATE 65,1:PBINT IV*;"Suite : >FE 
ENTEB';IV»:G0SUB 3300 

1670 H=6:T=7:G0T0 1710 >QQ 

1680 LOCATE 65,1:PBINT IV«;"Betour >GP 
: ENTER"; IV*: GOSUB 3300 

1690 HODE 1:PBINT TAB(15)N*tl3);TAB >YE 
(1S)STRING»(10,T»> 

1900 EBASE S«:LOCATE 9,12:PRIHT "Au >JZ 
tre calendrier ?(0/N)' 

1910 GOSUB 3300 >NK 

1920 IF R»='0" THFJ 1500 >QD 

1930 IF R»="N" THEN 200 >PE 

1940 GOTO 1910 >NC 

1980 ' >ZA 

1990 ' [«pression >ZB 

2000 LOCATE 1,3:PBINT EF»:LOCATE 10 >AH 
,10:PRINT "QUALITE : Epreuve":PRINT 
TAB(20l"Noriale':PRIHT TAB(20)'Sup 
erieure' 

2010 LOCATE 20,24:PRINT 'Votre choi >UV 
ï ?(E/N/S)" 

2020 GOSUB 3300 >UC 

2030 IF R«=*E" OB B»="H" DR R»="S' >EX 
THEN I»=Rt:GOTO 2040 ELSE 2020 
2040 LOCATE 1,3:PR1NT EF»:LOCATE 10 >JR 
,10:PRINT "PREPAREZ L'IHPRIHANTE... 
":LOCATE 10,13:PRINT "...puis «NTE 
fi>' 

2050 GOSUB 3300:E«=CHR«(27) >VL 
2060 PBINT l8,EI;'à':' Réinitialisa >PB 
tion 

2070 GOSUB 2600 >VK 

2080 PRINT IB,E»;"U"iCHM(l):' lipr >UF 
ession unidirectionnelle / 

2090 IF l»="E" THEH 2120 >QF 
2100 IF l»="N» THEN PRINT I8,E»;'E" >BU 
:' lipression en gras 
2110 IF ll="S" THEN PRINT I6,E»;"E" >HU 
;EI;"G*:' lipression en gras * doub 
le frappe 

2120 PRINT I6,EI;CHR*(14I;TAB(6)'CA >GL 
LENDRIER DE L'ANNEE';A:E*;CHR«(20>: 
PRINT 18 

2130 PRINT IB,E»;"1':' Interligne d >NB 
e7/72 

2140 H»=STRING»I22,CHB»(1)):C»=" " >YU 
♦CHB»(4HSPACE»(22HCHB»(4):B»=C**C 
«*C» 
2150 FOR 1=1 TO 10 STEP 3 >0D 
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2160 FOB Y=0 TO 2:PBINT 18," ":CHB >BE 
»(0)iH»;CHM(3);:HEÏT Ï:PBINT 16," 
2170 FOB Y=0 10 2:E»»=SPACE»((22-LE >TT 
N<H$(XtY>>)/2):EP»=SPACE»<22-LEN(EV 
♦ l-LBKMdtï))) 

2180 PBINT 16," "iCHB»(4);EÏ«ih*(X >TT 
*Y>;EMiCHfi»<4);:NEIT Y:PBINT 18," 
2190 FOB Y=0 10 2:PBINI 18," "iCHB >TP 
»15);H»;CHR»(2B);:NEIT Ï:PB!MT 18," 

H 

2200 FOB Y=0 TO 2:PBIMI 18," ":CHB >BB 

1(4);" ";U»;" ";CHB»(4)i:NEXT Ï:PB1 

Kl 18, "" 

2210 FOB Y=0 TO 2:PBIMT 18," ";CHB >TG 

»(5):HI;CHB*(28)i:NEIT Y:PRIMT 18," 

« 

2220 FOB Z=l TO 6:R0B Y=0 TO 2 >VZ 

2230 IF LENlSm*Y,Z)><22 THEH S«(I >DB 
«Y,Z>=S»(XtY,ZHSPACEI(22-LENlS»(I* 
Ï,ZD) 

2240 PBINT 18," ■:CHfill4)iS»(X*Y,Z >HH 
);CHB»(4); 

2250 HFJT Y:PBINT 18,": IF Z<6 THEK >HZ 
PBINT «8,B» 

2260 NFJT Z >K 

2270 FOB Y=0 TO 2:PBINT 18," "{CHB >UH 
»<29)iH»iCHB«<3U;:NEXT Y:PBINT 16, 

■ K 

2280 PBINT 18 >HH 

2290 NEIT X >XD 

2300 IMP=1:G0SUB 10*0: IMP=0 >VG 

2310 PBINT I8,E*î"2":" Interligne d >NT 

e 1/6 

2320 PBINT l8,TAB(5)*PAgiiES :';U >UK 

SING "III ";Q;:PBINT I8,NQ*:PBINT I 

8 

2330 PBINT I6,TAB(S)"ASCENSI0N :";U >VH 

SING 'III ":S;:PB1NT I8,HS«:PBINT I 

8 

2340 PBINT I8,TAB(S)"PENTEC0TE :";(] >JD 

SING "lit ";Ti:PBINT I8,HTJ 

2350 PBINT I8,CHB1<12):' Election 1 >QX 

eullle 

2360 PBINT I8,E»;"4":' Réinitialisa >PE 

tion 

2370 ûûTû iôâO >NH 

2470 ' >TF 

2480 ' FIN ======================== >TG 

2490 ' >TH 

2500 CALL >NC 

2580 ' >TH 

2590 ' S/P Téléchargement iaprlnnt >VJ 




2600 BESTOBE 2760 



>LÏ 



2810 D=0:F=6:G0SUB 2640 >BB 

2620 D=28:F=31:G0S«B 2640 >TC 

2630 GOTO 2730 >NA 

2640 FOB C=D TO F >FE 

2650 PBINT IB,CKBI(27l;CHB*(38);CHfi >IHI 

«lO);CKB»lC>;CHB»(C);Otfi»Ul)i 

2660 FOB E=l TO 11 >LF 

2670 BEAD N >TA 

2680 CAB»=CHR»(N) >LQ 

2690 PBINT I8.CAB»; >NB 

2700 NEIT E >VA 

2710 NEn C >UK 

2720 BETUBN >FE 

2730 PBINT l8,CHB«(27)iCHB»(37);CHB >PT 

$(l);CHfi$(0) 

2740 PBINT t8,CHB$(27);CHRI(73):CKR >FB 

«(1) 

2750 BETUBN >FH 

2760 DATA 0,0,0,0,31,0,16,0,16,0,16 >ZJ 

2770 DATA 16,0,16,0,16,0,16,0,16,0, >BH 

16 

2760 DATA 16,0,16,0,31,0,16,0,16,0, >BF 

16 

2790 DATA 16,0,16,0,31,0,0,0,0,0,0 >Z£ 

2800 DATA 0,0,0,0,255,0,0,0,0,0,0 >ÏG 

2810 DATA 0,0,0,0,255,0,16,0,16,0,1 >AJ 

6 

2620 DATA 16,0,16,0,255,0,16,0,16,0 >CU 

,16 

2830 DATA 16,0,16,0,255,0,0,0,0,0,0 >ZW 

2840 DATA 0,0,0,0,240,0,16,0,16,0,1 >AF 

6 

2850 DATA 16,0,16,0,240,0,16,0,16,0 >CQ 

,16 

2860 DATA 16,0,16,0,240,0,0,0,0,0,0 >ZT 

2870 ' >ÏK 

2680 ' S/P lntro date >ZA 



2690 ' >ZB 

2900 LOCATE l.L: INPUT "ANNEE "iK»:ll >YI 
=L:GOSUB 3200:1F Efi=l THEN 2900 FIS 
E A=K 

2910 IF A<1601 OB A>2399 THEN LOCAT >TZ 
E 1,24:PB1NT CKB*(7);IV*;'ENTBE 160 
1 et 2399,SVP...\IV»:F0fi TP=0 TO 1 
500:NEIT TP:LOCATE 1,24:PBINT EU:L 
OCATE 1,L:PBINT EL$:GOTO 2900 
2920 JF=28 >LG 

2930 IF A=2000 THEN JF=29:G0T0 2960 >BB 
2940 IF A HOD 100=0 THEN 2960 >UN 
2950 IF A HOD 4=0 THEN JF=29 MIT 
2960 IF AN=1 THEN 3170 >PI 



2970 LOCATE 1,L*2: INPUT "HotS »;tc* >Dfl 
:II=L<2:G0SUB 3200:1F EB=1 THEN 2970 

ELSEH=K 

2980 IF H<1 OB H>12 THEN LOCATE 1,2 >FH 
4:PBINT CHB»(7)ilV«;'EHTBE 1 et 12, 
S»P..."ilï«:F0fi TP=0 TO 1500:NEXT T 
P:LOCATE 1,24:PBINT a*:LOCATE 1,L< 
2:PBINT ELI:GOTO 2970 
2990 LOCATE 1,L»4: INPUT "JOUI ";K« >DQ 
:U=L«4:G0SUB 3200: IF EB=1 THEN 2990 

ELSE J=K 

3000 IF J<1 OB J>31 THEN LOCATE 1,2 >FQ 
4:PBINT CHB*(7);1V*;'ENTBE 1 et 31, 
SVP...";lï»:FOB TP=0 TO 1500:NEH T 
P:LOCATE 1,24:PB1HT EL«:LOCATE 1,1» 
4:PBINT EL«:GOTO 2990 
3010 IF (H=2 OB 11=4 OB H=6 OB 11=9 >YK 
B 11=11) AND J=31 THEN LOCATE 1,24:P 
BINT CHB«(7);iy$:"CE DOIS N'A PAS 3 
1 JOURS ...";IV*:FOB TP=0 TO 1500:N 
EXT TP:LOCATE 1,24:PB1NT ELI:LOCATE 

1,L»4:PBINT EL»:GOTO 2990 
3020 IF H=2 AND JF=28 AND J=29 THEN >QL 

LOCATE 1,24:PBINT CHBI(7);IVI;A;"N 
'EST PAS BISSEXTILE ...\1V»:F0B TP 
=0 TO 1500:NEXT TP:LOCATE 1,24:PBIN 
T a«:LOCATE 1,L:PBINT EF«:GOTO 290 


3030 B=A-1601:D=365«B:E=INT(B/4):F= >NE 
INTIB/100) 

3040 G=31«(H-1):IF H<3 THEN H=0 FIS >UU 
E H=INT(0.4»H*2.3) 

3050 NJ=D*E-F*G-H*J-1 >PH 

3060 IF N>2 AND JF=2B THEN NJ=NJH >AÏ 
3070 IF B>399 THEN NJ=NJ»1 >UD 
3080 BETUBN >FE 

3170 ' >TD 

3160 'S/P verlf lntro >VE 

3190 ■ >TF 

3200 EB=0:FOB 1=1 TO LEN(K*):IF NID >AI 
»(M,X,1)<"0" OB HID»(IC»,I,1)>"9" T 
HEN LOCATE 1,24:PBINT CHB*(7I;1VI;' 
CHIFFRES, SVP...';IVI:FOB TP=0 TO 1 
500:NEXT TP:LOCATE 1,24:PBINT ELt:L 
OCATE 1,B:PBINT EL»:ER=1:X=LEN<M) 
3210 NFJTT I >HG 

3220 IF EB=0 THEN K=VAL(Kt) >UC 
3230 BETUBN >FB 

3270 ' >TE 

3280 'S/P attente touche >TF 

3290 ' >TG 

3300 BI=INKETI:1F Bl=" THEN 3300 E >UP 
LSE B«=UPPEB«(B») 

3310 BETUBN >FA 
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EDUCATIF 



Tricoloperation 



Léon NEDRAG 



Valable pour CPC 464, 
664 et 6 128 



10 GOTO 30: ' TRICOLOPERATION >TC 
20 SAVE "TR1C0LD >NA 

30 BORDER 3,9:IMC 0,13:INK 1,24,6:1 >QZ 
NK 2,0: IHK 3,16 

40 KODE 1:FAPER 0:PEH 1:CLS:L0CATE >FC 
7,S:PRINT STRWG»<26,"»"> 
50 FOR ij=6 TO 15:LOCATE 7,lj:PRINT >RA 
"n":L0CATE 31,1):PRIHT "»»":NEIT 
60 LOCATE 7,16:PRINT STRING»(26,"t" >DJ 
) 

70 PEN 2:L0CATE 11,7:PRINT "TRICOLO >JÏ 
ROPERATIOHVLOCATE U,10:PR1NT "PAR 
Léon NEDRAG": LOCATE 11,13:PBINT 
"10 Hal 1389 

80 FOR lk=8 TO 14 STEP 3:L0CATE 11, >UP 
ik:PEN 3:PRINT ST81NG»(17,216):NEIT 

00 LOCATE 13,19:PEN 2:PRINT "BON C >QF 
OURAGE !":L0CATE 13,20:PEN 1:PRINT 
STRING»(14,"i"> 

100 LOCATE 2,22:PEN 2:PRINT "APPUÏE >EN 
Z SUR ESPACE POUR CONTINUER":PE 
N 1: LOCATE 2,23:PRINT STRINGK37,'- 
■) 

110 ' »" LA TRUITE d'après AMSTRAD >RC 
MAGAZINE et SCHUBERT 
120 ENV 1,2,2,7,1,0,200 >PK 
130 FOR k=l TO 98:READ a,b >TA 
140 IF a=2 THE» v=0 ELSE ï=9 >UÏ 
150 SOUND 4,a,b>3,v,l >PB 

160 SOUND 2,a-l,b«3,v,l >QT 
170 SOUND l,a,b»3,v,l >PA 

180 IF INKET<47)=0 THEH 440 ELSE NE >DP 
IT 

190 DATA 358,8 >KJ 

200 DATA 268,8,268,8,213,8,213,8,26 >DG 
8,16 

210 DATA 358,12,358,4,358,16,239,4, >H 
268,4 

220 DATA 284,4,319,4 >KK 

230 DATA 358,16,2,8,358,8,268,8,268 >CH 



Une nouvelle règle à ajouter 
dans le code de la route : il faut 

non seulement respecter les 
feux mais également effectuer 

des opérations. Non, en fait le 

résultat des opérations influe 
sur la position des feux et 

détermine votre progression. 

Les règles sont incluses dans 
le programme. 




240 DATA 213,8,213,8,268,16,358,8,2 >EC 

68, 8 

250 DATA 284,8,319,4,284,4,268,8,37 >DC 

9,8 

260 DATA 358,16,2,8,358,8 >RF 

270 DATA 284,8,284,8,268,4,284,4,31 >DV 

9,4 

280 DATA 2B4.4.268, 16,358,8,268,6,2 )EÏ 

B4,8 / 

290 DATA 2B4,B,284,4,201, 4,239,4,28 >DE 

4,4 

300 DATA 268,24,268,8 >M 

310 DATA 301,8,301,8,301,8,268,6,26 >DR 

8,16 

320 DATA 358,12,358,4,358,16,239,8, >EE 

284,8 

330 DATA 268,24,268,8,284,4,319,4,3 >EF 

19,8 

340 DATA 319,4,268,4,284,4,239,4 >ÎF 

350 DATA 268,16,358,12,358,4,358,16 >AL 

360 DATA 239,8,284,8,268,16,358,4,4 >EK 
26,4 



370 DATA 402,4,370,4,358,4,213,8,26 >DH 

8,8 

380 DATA 2,4,536,4,426,4,402,4,379, >BA 

4 

390 DATA 358,4,213,8,268,8,2,10,536 >CB 

,4 

400 DATA 426,4,402,4,379,4,350,4,21 >CF 

3,8 

410 DATA 358,8,268,24 >NP 

420 RESTORE 190:G0T0 120 >TL 

430 PEN 0:RUN "TRIC0L01" >TQ 

440 BORDER 1:1KK 0,16:INK 1,0:INK 2 >PH 

,9: IHK 3,24,6 

450 ' l» Régie du jeu >RK 

460 PAPER 0:PEN 1:CLS >PF 

470 LOCATE 3,8:PRINT "VOULEZ - VOUS >VT 

LA REGLE DU JEU ?":PRINT TAB13 
ISTRING«(35,207) 
4B0 LOCATE 11,17:PRINT •- (OIUI OU >ZT 

(N)0N -":PRINT TAB(11)STRING»<20, 
2161 

490 UHILE INKEV»="":»END >UG 
500 IF INKEY(34)=0 THEN 530 >UC 
510 IF INKEY<46)=0 THEN 430 >UF 
520 PEINT CHR»<7);:G0T0 490 >VZ 
530 KODE 1: PEN 3:PAPER 2:CLS:L0CA >JC 
TE 6,4:PRINT "> ■ < REGLES DU JE 
U i « i*:PEN r:L0CATE 6,3:PRINT ST 
RING$<29."»"):L0CATE 6,5:PRINT STRI 
NGI(29,"i") 

540 UINDOU 16,1, 40,11, 2S:PAPER 16, >TG 
0:PEN I6,1:CLS 16 

550 regle«="Ce Jeu se joue SEUL ou >QU 
i DEUX. Chaque" :G0SUB 740:regle»="fo 
ls que tu réponds JUSTE tu «arques" 
:G0SUB 740 

560 reglel='DEUI POINTS. Si tu te TR >HD 
OHPES tu passes":GOSUB 740:regle«=" 
dans L'ORANGE sans «arquer de POINT 
.':G0SUB 740:PRINTI6 
570 PRINT I6:PSINT I6:G0SUB 780:CLS >GG 
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!6:regle»='Une fois dans L'ORANGE 
tu as DEUX":GOSUB 740:regIe»="S0LUT 
IONS :":G0SUB 750:regle»="- SI tu 
réponds JUSTE.tu reviens dans':G0SU 
B 7*0 
580 regleM'Ie VEfiT et tu MARQUES 1 >HH 

P01NT":G0SUB 750:regle»="- Si tu r 
éponds FAUX, tu passes dans":GOSUB 7 
40:regle»="le ROUGE, SANS MARQUER DE 

POINT.. .":GOSUB 7S0 
590 PRINT I6:PRIMT I6:G0SU8 780:CLS >HF 

#6:regle*=*Une (ois dans LE ROUGE 
tu as DEUX':GOSUB 740:regle»='S0LUT 
IONS :':GOSUB 750:regle»="- SI tu ' 
réponds JUSTE.tu reviens dans':GOSU 
B 750 
600 rejle»="l'ORANGE et tu MARQUES >HL 

1 POINT.VGOSUB 750:regle«="- Si tu 
réponds FAUI.c'est ton";G0SUB 750: 

regle*='ADVERSAIRE qui PREND LA SU) / 

TE DU JEU ":GOSUB 750 

610 regle»="et qui DEBUTE DANS LE V >UB 

ERT ..':GOSUB 750:PRINT #6:PRlNTt6: 

GOSUB 780:CLSI6 

620 regle*='Chaque adversaire a 3 C >BV 

HANCES pour se":GOSUB 740:regle»='r 

acheter. Chaque réponse JUSTE MARQUE 

":GOSUB 750:regle*='DES POINTS : - 

2 dans le VERT':GOSIB 750 

630 regle*='- 1 dans les autres cas >RJ 

... Si tu ':GOSUB 750:regle»="toue 

s SEUL,chaque (ois que tu PERDS":GQ 

SUB 750:regle»='dans LE ROUGE, TU PE 

RDS UNE CHANCE, ";GOSUB 750:regle»=" 

(tu en as 4), et TU RECOMMENCES EN V 

ERT.': GOSUB 750 

640 PRINT I6:PRINTI6:G0SUB 760:CLSI >EQ 

6 

650 regle»="ll y a un chiffre LiMiT >BI 

E à donner':GOSUB 740:reglet-*avant 

de débuter le feu et il y a :':GOS 
UB 750:regle*=»- 4 possibllitées D' 
OPERATIONS ..":GOSUB 740:regle»='- 
2 degrés de DIFFICULTEES pour la':G 
OSUB 750 

660 regle»="DlVISION et 1 pour les >H0 
autres.. ":GOSUB 750:regle»="Le {eu 

s'arrête après 30 opérations.. ":G0 
SUB 740 

670 PRINT I6:PRINT I6-.G0SUB 780:CLS >FD 
16 

6S0 regle»='Dans les résultats de I >EP 
'addition, la':GOSUB 740:regle»="sou 
stractlon.et la «ultiplication,ies" 
:GOSUB 740:regle»='NONBRES S'ECRIVE 



HT de DROITE à GAUCHE.': GOSUB 740 

690 regle*='Dans la division sans r >JA 

este(SR),il n'y*:GOSUB 740:regle»=" 

a q'UNE REPONSE â donner: LE QUQTIEN 

T": GOSUB 740: PRINT 16: PRINT I6:G0SU 

B 7B0:CLSI6 

700 reglel="Dans les autres il y a >TX 

DEUI nosbres i':GOSUB 750 

710 regle»='(ournir : LE QUOTIENT E >UL 

T LE RESTE':GOSUB 750:regle»="Le QU 

0T1EHT s'écrit de GAUCHE à DROITE,' 

:GOSUB 750:regle»="et le RESTE de D 

R01TE à GAUCHE. ':GOSUB 750 

720 regle«="BONNE CHANCE ....":GOS >FC 

UB 750:PEN I6,3:regle«='tni»ii<<i 

i»m««':PRINTI6:G0SUB 760:PEN 16,1 

:regle»="QUE LE MEILLEUR GAGNE ! 

!':GOSUB 750:PEN I6,3:regle»='in< / 
*«ifii«<«ii«>«Sff4ïiixsii":PRINTI6:G 
OSUB 760 

730 PRINT *6:PRINT I6:G0SUB 7B0:CLS >HL 
:GOTO 430 

740 PRINT 16 >BF 

750 PRINT I6:PRINT 16 >PR / 

760 LOCATE 16, lNT((40-LEN(regle»))/ >CE 
2)U,25:F0R re=l TO LEN(regle»):PRI 
NT t6,MID»(regie»,re,l);:IF HIMIre 
glet,re,l)<>' ' THEN SOUND 1, 264,4, 
12,0,0,1 

770 FOR reg=l TO 50:NEXT reg:NEXT r >MC 
e:RETURN 

780 i»='APPUYEZ. . SUR.. UNE.. TOUCHE.. >KE 
POUR. . FAIRE. .AVANCER. . LES. . INSTRUCT 
IONS.. APPUYEZ.. SUR.. UNE.. TOUCHE.. PO 
UR.. FAIRE..' 

790 PFJ 0:FOR lo-l TO 68:L0CATE 1,1 >CK 
0:PRINT NID»(l»,lo,40);:F0R il-1 TO 

50:NEXT 

800 IF INKETM" THEN NEIT:G0T0 790 >CZ 
810 LOCATE 1,10:PRINT STRING»(40,32 >NV 
):RETURN 



10 GOTO 30 >KD 

20 SAVE 'TRIC0L01 >MX 

30 BORDER 1:1NK 0,16: IKK 1,0: IKK 2, >VE 
9:INK 3,24,6: INK 4,6: INK 5,1:INK 6, 
26: IKK 7,15:INK 9,2:INK 10,15,12:IN 
K U,13:INK 12,4:INK 13,20:IIK 14,7 
:IKK 15,3 

40 |=l:i=0:y=0:v=0:u=0:i=0:z=l:yy=0 >EH 
50 ' »•« Jeu 1 ou 2 >LE 

60 MODE 1:PEN 1:PAPER 0:CLS >VG 
70 LOCATE 4,8:PRINT 'Jouez-vous SEU >EN 



L (1) ou à DEUX (2) 

80 PRINT TABI4) STRING»<33,131> 

90 LOCATE 9.16:PR1NT "TAPEZ - 1 - 

OU - 2 - 

100 PRINT TABI9) STRING«(23,131> 
110 UHILE IMKEY«=":WEND 
120 IF !NKEY(13)=0 THEN rep=l:CLS:G 
OTO 160 

130 IF INKEYI 141=0 THEN rep=2:CLS:G 
OTO 220 
140 GOTO 110 

150 ' ni Prénoi loueur 1 
160 LOCATE 3,24:PRINT "APPUYER sur 

<ENTER> après LE PRENOM 
170 LOCATE 9,8:PRINT 'QUEL EST TO 
N PRENOM ?':PRINT TABI9) STRINGK2 
4,126) 

180 PEN 3:L0CATE 15,16:INPUT",psl« 
:psl»=UPPER»(psl«):PRINT CHR*(7):ps 
l=LEN(psl»):PEN 0:PR1NT TAB(IS) STR 
ING»(psl,216):ps»=LEFT»(psl»,6):ps= 
LEN(ps»):lg=(22-psl)/2 
190 CLS:PEN 1: LOCATE lg,12:PR!NT M 
E TE REMERCIE :':L0CATE lg*19,12: 
PEN 3:PRINT psi* 

200 PEN 0:PRINT TAB(lg) STRING»(19* 
psl,126):G0SUB 4300:G0T0 330 
210 ' <•■ Prénoa joueurs 
220 LOCATE 1,24:PRINT "APPUYER sur 

<EHTER> après CHAQUE PRENOM 
230 LOCATE 2,5:PRINT 'Quel est le P 
RENOM du preaier loueur ?':PEN 0:PR 
INT TABI2) STRING»(38.126):L0CATE 1 
S,9:PEN 3:lNPUT",ptl*:PRINT CHR»(7 
):ptl»=UPPER»(piU):p)l=LEH(pU>l:P 
RINT TAB115) STRING«(p1l,216l 
240 PEN 1:L0CATE 1,14:PRINT 'Quel e 
st le PRENOM du deuiièae joueur ?': 
PEN 0:PRINT STRING»(39,126):L0CATE 
15,18:PEN 3:IHPUT",d1l»:PRINT CHR» 
(7):d1l»=UPPER«(d1l»):dJl=LEN<djm 
:PEN 3:PRINT TABI15) STRING»(d1l,2l 
6) 

250 p1»=LEFT*(p|l»,6):pt=LEN!p1»!:d 
1*=LEFT»(dji»,6):d,1=LEN(d.1»>:G0SUB 
4300 

260 ' »« Choix loueur 
270 MODE 0:h=INT<8NDt2>H:IF h=l TH 
EN jd»=pj* ELSE id*=di* 
280 GOSUB 4280:PEN l:CLS:LOCATE 8,3 
:PR1NT "C'EST":PEN 7:PRINT TAB(B) S 
TRING»(S,126) 

290 PEN 12:G0SUB 4240:L0CATE cp, 10: 
PRINT )d»:PRINT TAB(cp) ST8ING*(|d. 
216) 



>ZA 
>LY 



>ZF 
>UV 



>YD 
>8G 

>he 



>RD 
>UJ 



>JZ 



>FE 



>SJ 
>BI 
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300 LOCATE 4,17:PEN 1:PRINT "QUI C >GK 

0HHFJtCE.":PEN 7:PRINT TABI4) STKING 

«(14,216) 

310 GOSUB 4300 >PC 

320 ' »i> Opérations >6F 

330 MODE 1:PEN 1:PAPEB 0:CLS:LOCATE >6B 

12,2:PRINT "« » « HENU » « «":P! 
■NT TABI12) STRlNG*(i8,160> 
340 LOCATE B,7:PB1KT ■- (1) ADD1TI >EB 
ON 

350 LOCATE 8,9:PB1NT "- 12) SDUSTB >KJ 
ACTION 

360 LOCATE 8,U:PBINT "- (3) HULT1 >NH 
PLICATION 

370 LOCATE B,13:PB1NT "- 14) DWIS >FF 
ION 

380 LOCATE 8,15:PBINT "- (5) LES >QH 
5 AU HASARD 

390 LOCATE 8,17:PBINT "- (6) FIN >HQ 
U JEU 

400 LOCATE 5,21:PB1NT "Choisissez >HU 
UN NOMBRE DE 1 a 6":PRINT TABI5) 

STBING*(33,126) 
410 do«=INKEÏ»:IF do»="" THEN 410 E >UC 
LSE PRINT CHBM7I 

420 do=VAL(do*):IF do=6 THEN END EL >DN 
SE IF do>5 OB do<l THEN 410 
430 ' m Vitesse réponse >RH 
440 MODE 0:PEN 0:PAPER 2::CLS:L0CA >BV 
TE 2,3:PBINT "• • RAPIDITE • »":P 
EN 1:PBINT TAB(2) ST8ING» (18, 160) 
450 PEN 6: LOCATE 2,7:PBINT ■- (1) >CF 

- SURDOUE": LOCATE 2,10:PRINT "- (2 
) - DOUE 

460 LOCATE 2,13:PR1NT "- (3) - NOR >BU 
HAL":LOCATE 2,16:PRINT ■- (4) - SOU 
S-DOUE 

470 vr«=INKEY»:IF vr»=" THEN 470 >TF 
aSE PBINT CHR»(7):vr=VAL(vr»):IF ï 
r<l OR vr>4 THEN 470 
480 IF vr=t THEN lr=10 ELSE IF vr= >DK 
2 THEN lr=20 ELSE IF vr=3 THEN lr=3 
ELSE lr=90 

490 IF do=4 THEN 950 ME 

500 ' »<• Nbr lai >BF 

510 MODE 0:PEN 1:CLS: LOCATE 3,5:PRI >TB 
NT'NOHBRE HAIIHUH":PEN 2:PBINT TAB 
<3)STRING»(15,216> 

520 PEN hLOCATE 5,U:PRINT "A UTI >CN 
L1SER»:PEN 2:PR1NT TAB(S)STB1NG»(11 
,207) / 

530 LOCATE 8,17:PEN 15: IHPUT ",ni» >AÏ 

:PRINT CHR»(7):lni=LEN(ni*>:d=VAL(n 
■*) 



540 IF do=4 THEN RETURN >RG 
550 ON do GOTO 730,830,900,950,780 >ZT 
560 ' «< Liiite sup. >TB 

570 PEN 3:1F d>10 THEN GOSUB 650 EL >M 
SE GOSUB 640 

580 GOSUB 4300:L0CATE B,17:PRINT ST >RG 
BINGN10," "):LOCATE 1,21:PEN U:PB 
1NT STBING«(17,126):PEN 1: LOCATE 1, 
23:PRINT STRING»(17,126):IF do<)4 
B do<>5 THEN 530 

590 GOSUB 530: IF in=l THEN 620 >IA 
600 KZ=999:G0T0 660 >NK 

610 lz=99999:G0T0 660 >QM 

620 »z=32499:G0T0 660 >PC 

630 xz=999999:G0T0 660 >QZ 

640 LOCATE 1,20:PR1NT'- NBB TBOP PE >FG 
TIT.'îPEN ISiLOCATE 1,22:PBINT"T0UJ 
OURS > à ■105":BETUBN y 

650 LOCATE 1,20:PRINT"- NBB TBOP Gfl >QL 
AND,":PEN 15:L0CATE 1,22:PBINT"<';« 
z;:PEN 3:L0CATE 12,22:PRINT 'S.V.P. 
"îBETUBN 

660 IF d>iz OB d<10 THEN 570 ELSE B >GD 
ETURN 

670 ' »•« Début >TD 

680 PEN 1:CLS:L0CATE 6,3:PRINT "An >HB 
ENTION !":PEN 7.-PRINT TABI6) STBING 
«(11,126) 

690 PEN 12:1F rep=l THEN GOSUB 4230 >AN 
:LOCATE cs,10:PEN 1 : PB I NT ps»:PEN 7 
.'PRINT TABlcs) STBING*(ps,216) ELSE 
LOCATE cp,10:PRINT 1dt:PBlNT TABIc ' 
p) STRINGt(id,216) 

700 LOCATE 4,17:PEN hPBINT'C'EST >EE 
PARTI !":PEN 7:PRihT TAB(4)STRiNG*l 
14,216) 

710 GOTO 4300 >FC 

720 • »ll Add. >BK 

730 GOSUB 630:GOSUB 4410 >TA 
740 io=l:GOSUB 1380 >NG 

750 GOSUB 1600 >QA 

760 GOSUB 1500:1F ohOl THEN 740 a >U 
SE RETURN 

770 ' m Les 5 au hasard >TE 
780 GOSUB 600:GOSUB 4410 >TC 
790 oh=INT(BND«5Hl >NI 

800 ON oh GOSUB 740,840,910,1040,11 >CÏ 
20 

810 GOTO 790 >AB 

820 ' »• Soust. >TA 

830 GOSUB 630:G0SUB 4410 >TB 
840 do=2:G0SUB 1380 >NJ 

850 PEN 12:L0CATE 1,3:PRINT 'SOUSTR >FI 
A. 



860 IF b>a THEN GOSUB 1410:G0T0 860 >BA 
870 GOSUB 1610 MK 

GOSUB 1500: IF oh<>2 THEN 840 a >LP 
SE RETURN 

' Hi Huit. >TH 

900 GOSUB 610:G0SUB 4410 >RF 
910 do=3:G0SUB 1380 >NH 

920 GOSUB 1620 >QB 

930 IF oh<>3 THEN 910 ELSE RETURN >AE 
940 ' m Choir div. >TD 

950 MODE 1:PAPER 2:PEN 0:CLS:LOCATE >KN 

11,3:PRINT "CHOU DE DIV1SI0N":PRI 
NT TAB111) STRING»(19,160) 
960 LOCATE 1,8:PRINT "- (1) D1VISI0 >IY 
N sans reste 

970 LOCATE 1,11:PBINT "- (2) DIÏISI >TR 
ON avec reste 

9B0 LOCATE 3,17:PRINT "Choisissez 1 >RC 
e noibre 1 ou 2":PRINT TAB(3) STBIN 
GK27.126) 

990 cd*=INKEÏ«:IF od«="" THEN 990 E >JE 
LSE cd=ÏAL(cd»):PBINT CHR«(7) 
1000 IF cd>2 OB cd<l THEN GOSUB 448 >KU 
0:GOTD 990 

1010 ' »«» Div. >Œ 

1020 GOSUB 510:1F cd=2 THEN GOSUB 6 >JL 
20:G0SUB 4410:G0T0 1120 ELSE GOSUB 
600:G0SUB 4410 

1030 ' »»« Div. S. B. >K 

1040 do=4:GÛSUB 1380:cpt=0 >VJ 
1050 PEN 12:L0CATE 1,3:PBINT "Dlï. >H 
SB 

1060 div=INT(a/b):IF div=a/b THEN 1 >FF 
090 

1070 cpt=cptil:IF cpt<=20 THEN GOSU >UQ 
B 1410:G0T0 1060 

1060 GOSUB 1400:cpt=0:GOTO 1070 >ZE 
1090 GOSUB 1630:G0SUB 4220: IF nr=cc >LP 

THEN GOSUB 2850 ELSE GOSUB 2940 
1100 IF oh<>4 THEN 1040 ELSE RETURN >BB 
1110 ' •» Div. A. B. >ÏF 

1120 do=4:G0SUB 1380 >NZ 

1130 PEN 12:L0CATE 1,3:PRINT "Dl». >EB 
AB 

1140 IF b>a THEN GOSUB 1410:G0T0 il >CB 
40 

1150 GOSUB 1640 >IA 

1160 GOSUB 4220:nrl=nr >8K 

1170 GOSUB 4350:G0SUB 4180:in=l:L0C >UE 
ATE 6,19:nr=O:G0SUB 18B0:G0SUB 3820 
1180 nr=nr3:IF nrl=açb AND a=(nrl«b >TQ 
)tnr THEN GOSUB 2850 ELSE GOSUB 294 

1190 IF oh<>5 THEN 1120 ELSE RETURN >BL 
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1200 ' •<• Feux tricolo >IF 

1210 CLS:H0D£ 0:SYHB0L 241,1,7,15,3 >QH 

1,31,63,63,63 

1220 SYMBOL 242,128,224,240,248,248 >NQ 

,252,252,252 

1230 SYMBOL 243,127,127,127,127,127 >NZ 

,255,255,255 

1240 SYMBOL 244,254,254,254,254,254 >NG 

,255,255,255 

1250 SYHBOL 245,255,255,255,127,127 >ND 

,127,127,127 

1260 SYHBOL 246,255,255,255,254,254 >KL 

,254,254,254 

1270 SYMBOL 247,63,63,63,31,31,15,7 >CU 

,1 

1280 SYMBOL 248,252,252,252,246,248 >ND 

,240,224,128 

1290 yiNDOUIl, 19,20, l,8:yiND0VI2, 19 >LH 

, 20,9, 16:UIND0Wt3. 19,20, 17,23 

1300 M=CHR»(32HCHR»(32):a»=CHR»(2 >DI 

41HCHR«(242HCHR*(243HCHR*1244MC 

HR»(245HCHR»(246HCHRI(247HCHR»(2 

48):c*=b»*b*ta«*b* 

1310 PAPE»H,6:PEN«l,4:PilNTIl,c»*b >EN 

• 

1320 PAPEHI2,6:PENI2,7:PRlNTI2,<:l*b >EW 

I 

1330 PAPERI3,6:PEHI3,2:PRlNTI3,c» >BZ 

1340 UIND0Wt0,l,18,l,23:PAPERt0,ll: >BB 

PENI0,l:CLSiO 

1350 GOSUB 1550 >IC 

1360 GOTO 4300 >BE 

1370 ' ••» Chiffres >YD 

1360 GOSUB 1660 >IH 

1390 RANDONIZE TIME >PP 

1400 a=INT(RND«d):IF a=0 THEN 1400 >AX 

1410 b=INT(8HD»ld/!0)):IF b=0 THEN >EU 

1410 

1420 IF do=3 THEN RETURN >TU 

1430 PEN 4:L0CATE 8,B:PBINT USIRGM >LE 

IIIMI";a:IF do=4 THEN LOCATE 8,10: 

PRINT USING'HMIII';b:BETURN 

1440 LOCATE 8,11:PRIMT USING'llllli >QB 

l";b:RETUBN 

1450 ' m Retour lenu >YC 

1460 PRINT 14,"- < - POUR REVENIR >AI 

A U SELECTION' 
1470 FOR t=l TO 500:1F INKEY(17)=0 >UU 
THEN 330 ELSE NEXT 

1480 GOSUB 1550:RETURN >RY 

1490 ' loi Départ opérât. >YG 
1500 LOCATE 13,22:G0SUB 1870 >VF 
1510 CLSI4:IF do<>3 THEN 1530 >VJ 
1520 IF nr2=ab AND nr=ab THEN 2190 >JF 



ELSE 2450 

1530 nr=nr3:IF nr=ab THEN 2190 ELSE >FL 
2450 

1540 ' «« Diff. fenêtres >YC 
1550 UIND0WI4,1,20,24,25:PAPERI4,0: >GA 
PENt4,l:CLSI4:PRlNTt4,"<ENTER>, POU 
8 CONTI. <D£L> POUR ANNULER" :RETURN 
1560 IF 1=1 THEN PAPERI1,6:PAPERI2, >DR 
6:PAPERi3,6:PRINTIl,STRING*(16,b«l: 
PRINTI2,STRING»(16,M):PEM3,2:PRIN 
TI3,c*:RETURN 

1570 IF 1=2 THEN PAPERI1,6:PAPEM2, >JB 
6:PAPERt3,6:PRINTU,STRING»(16,bl): 
PENI2,7:PRINTI2,c»*bS:PRlNT83,STR!N 
G» ( 14, b«): RETURN 

1580 PAPERI1,6:PAPERI2,6:PAPERI3,6: >MV 
PEN#l,4:PRINTtl,c»*b»:PRlNT«2,STRIN 
G«U6,b«):PRiNTt3,STRlllG«(14,b»>:BE 
TURN 

1590 '<<■ Sliilitude prograue opér >YH 
at. 

1600 PEN 12:L0CATE 1,3:PR1NT "ADDIT >ZA 
.":LOCATE 1,14:PEN 13:PRINT "AJOUTE 
":GOSUB 1750:L0CATE 4,18:PRINT •♦• 
:ab=a*b:RETURN 

1610 PEN 13:L0CATE 1,14:PRINT 'SOUS >TC 
T.":GOSUB 1750:L0CATE 4,1B:PRINT ■- 
":ab=a-b:RETURN 

1620 PEN 12:L0CATE 1,3:PRINT "HULTI >AZ 
.":GOSUB 177O:ab=a«b:G0SUB 4080:RET 
URN 

1630 PEN 13:L0CATE l,12:PRINT"DIÏIS >FE 
E":cc=a/b: GOSUB 1830:G0SUB 4360:G0S 
UB 4370:L0CATE c2,19:G0SUB 1870:RET 
URN 

1640 PEN 13.-L0CATE 1,12:P8!NT "DIVI >AC 
SE":GOSUB 1830:cc=açb:rd=a HOD b:GO 
SUB 4360:G0SUB 4370:L0CATE c2,19:G0 
SUB 1870:RETURN 

1650 » IH Tableau présent, opérât. >YE 
1660 PAPERI0,11:PENI0,5::CLSI0 >YL 
1670 IF rep=l THEN LOCATE 8,1:PEN 6 >Y0 
:PRIKT psl:GOTO 1690 
1680 GOSUB 4240:LOCATE 8,1:PEN 6:PR >KG 
INT fd» 

1690 PEN 3:L0CATE 15,1:PRINT z:PEN >AT 
5:L0CATE 1,5:PRINT "NBR. HAI.:':PEN 
14:L0CATE 11,5:PRINT d:PEN 7:PRINT 
STRING»(10,126> 

1700 PEN 2:PRINT:PRINT 'NBR 1:':PEN >EC 
7:PRINT STRING*(6,126) 
1710 IF do=3 OR do=4 THEN 1780 >UH 
1720 PEN 9:PRINT:PRINT "NBR 2:":PEN >EN 
7:PRIHT STRING$(6,126) 



1730 PEN 5:L0CATE 8,14:PRINT 'LES 2 >EV 
NBR:":PEN 7:PRINT STR1NGS( 17, 126) : 
BETURN 

1740 ' «« A et B >YE 

1750 PEN 15:L0CATE 7,16:PRINT USING >HU 
"IMIIU";a:LOCATE 7,1B:PRINT USING 
"lltlllt'ib 

1760 PEN 1: LOCATE 3,20:PRINT STR1NG >2B 
♦112,131):L0CATE 2.22:PRINT "=":RET 
URN 

1770 PEN 15:L0CATE 9,B:PRINT USING' >UK 
llllil":a:LOCATE 9,10:PRINT USING't 
lllll'ib:GOTO 4320 

1780 PEN 9:PRINT"NBR 2:':PEN 7:PR1N >WR 
T STRINGt(6,126) 

1790 IF do=4 THEN 1810 >PD 

1800 PEN 1:L0CATE 8,10:PRINT'i":L0C >IF 
ATE 9,U:PRINT STRING«(6,131):RETUR 
N 

1610 PEN 5:L0CATE B,12:PRINT"LES 2 >CT 
NBR':PEN 7:PRINT STRIKG»(17,126):RE 
TURN 

1820 ' i» Dessin dlvl. >YD 

1830 PEN 15:L0CATE 1,16:PRINT USING >FP 
'tllllt';a:LOCATE 10,16:PRINT USIN 
G 'lllll'ib 

1840 FOR n=15 TO 20:L0CATE 8,n:PRIN >KZ 
T CHB$(149):NEIT:L0CATE 8,17:PRINT 
CHMf 151): LOCATE 9,17:PRINT STRING» 
(6,1541 

1850 RETURN >FH 

1660 ' ><> Aff. et ilnut. rêp. >YH 
1870 nr=0:nrl=0:nr2=0:nr3=0:G0SUB 4 >GH 
180 

1880 WINDOW 17,1, 6,1, 1:PEN I7,4:PAP >QL 
ER I7,6:CLS l7:nbl=0:nr»=STR*(nr) 
1890 tp=INT(TIHE/300) >QF 

1900 PEN 3:PRINT CHR»(238);CHR«(B): >HÏ 
:PEN 1 

1910 tpl=lr-(INT(TI«E/300)-tp) >ZX 
1920 SOUND 1,50,10,10:FM t=l TO 10 >ED 
0:NEÏT: IF tpl=9 THEN CLSI7 
1930 LOCATE 17,1, 1:PRINT l7,tpl;"S >BG 
1940 nb»=lN!ŒY»:IF nb«=" AND tpl>0 >KD 
THEN 1910 

1950 IF tpl<=0 THEN 2170 ELSE tp2=t >DZ 
Pi 

1960 IF 1NKEY(18)=0 OR INKEY(6>=0 T >HT 
HEN PRINT CHR»(16):GOT0 2170 
1970 IF ASClnb»K>127 THEN 2040 >IT 
1980 IF LEN(nr*Kl OR nbKl THEN 21 >CP 
20 

1990 nr*=LEFT»lnr»,LFJt(nr*)-l):IF d >«J 
o=4 THEN 2010 
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2000 nb$=CH8»U6HCHRl»(9)tCHR»(16): >LH 

GOTO 2030 

2010 IF «1=1 THEN 2000 >PK 

2020 nb*=CHRt(16HCHB*(8HCHB*(16) >AX 

2030 nbl=nbl-l:G0T0 2110 >RH 

2040 IF ASC(nb»)<« OB ASC(nb»»57 )JC 

THEN 2120 

2050 IF do=4 THEN 2090 >PU 

2060 nr*=nr«*nb*:nbl=nbl*i:GOSiJB 43 >NR 

30:1F nbDabb THEN 2170 ELSE 2060 

2070 nr»=nr»tnb»:nbl=nbltl:GOSUB 43 >CU 

30:1F nbl>res THEN 2170 

2080 PEINT nbl;:PEN 3:P8INT CHR*(8> >EI 

;CHR»(8);CKR»S238>;CHR»(8>;:PEN 1:G 

OTO 2120 

2090 IF m=l THEN 2070 >PB 

2100 nr»=nr»»nM:nbl=nbl«l:GOSUB 43 >AU 

60:1F nbl>cl THEN 2170 

2110 PRINT nb*::PEN 3:P8INT CKRK23 >«E 

B!;CHR»(B);:PEN 1 

2120 tp=INTlTIHE/300) >QB 

2130 tpl=tp2-(INT(TIHE/300)-tp):SOU >TE 

HD 1,50,10,10:FDB t=l TO 100:NEXT:I 

F tpl=9 THEN CLSI7 

2140 LOCATE I7,1,1:PBINT l7,tpl:*S >BA 

2150 nb*=lNKEÏ»:IF nb»=" AND tpt>0 >KB 

THEN 2130 
2160 GOTO 1950 >NB 

2170 IF do=3 OR do-4 THEN RETURN EL >HH 
SE 3820 

2180 ' n< Rép. juste >ÏD 

2190 BORDER 16,7:PAPERI0,9:PENI0,10 >JÏ 
:CLSiO 

2200 LOCATE 3,3:PRINT 'TU AS RAIS >ÏZ 
ON':PEN 3:P8!NT TABI3) ST8ING»(14,2 
08) 

2210 PEN 12:1F rep=2 THEN GOSUB 444 >NU 
0:PEN 3:G0SUB 4450 ELSE GOSUB 4430 
2220 PEN 10:G0SUB 4460:PEN 3:G0SUB >FV 
4470 

2230 PEN 1:G0SUB 4330:G0SUB 4340:L0 >AC 
CATE tot,20:PRINT ab 
2240 RESTORE 22SO:F08 n=l TO 8:READ >EK 

o:SOUND l,o,15,15:NEXT n 
2250 DATA 100,90,100,110,120,110,10 >CÏ 
0,0 

2260 IF 1=1 THEN i=l:GOSUB 1S60:GO >HW 
TO 2290 

2270 IF 1=2 THEN 1=1:G0SUB 1S60:G0T >GY 
2330 

2260 IF 1=3 THEN |=2:G0SUB 1570:G0T >GC 
2330 

2290 IF rep=l THEN 2710 >QB 
2300 BORDES 1:1F 1d»=p1* THEN 2320 >AH 



2310 u=»+2:v=v+l:G0T0 2370 >ÏJ 
2320 y=y*2:i=x*l:G0T0 2370 >ÏU 
2330 IF rep=l THEN 2720 >QÏ 
2340 BORDER 1:1F id*=pt< THEN 2360 >A8 
2350 »=wtl:v=ï*l:G0T0 2370 >ÏN 
2360 y=y*l:i=xH >LG 

2370 GOSUB 4680:z=zU >0E 

2360 IF z<31 THEN 1460 ELSE GOSUB 3 >NU 
030:G0T0 3380 

2390 LOCATE (7-res),19:P8INT rd >ZX 
2400 LOCATE 1,21:PEN 2:PR1NT"L'E8RE >TH 
UR EST DANS: 

2410 IF nrlOcc AND nrOrd THEN PEN >ÏA 
3:PR1NT 'LE QUOT. et BESTE":G0TO 2 
540 

2420 IF nrlOcc THEN PEN 3:PRINT TA >KC 
B(4)"LE QU0T1ENT":G0T0 2540 
2430 IF nrOrd THEN PEN 3:PR1NT TAB >EL 
(5)"LE RESTE":GOTO 2540 
2440 ' mi Rép. fausse >TC 
2450 B08DEB 0,1:PAPERIO,S:PENIO,3:C >GF 
LSIO ■ 

2460 LOCATE 4,3:P8INT "TU AS TORT >IC 
•:PEN 13:PRINT TAB(4) STtlNG*(12,20 
8) 

2470 PEN 12:1F rep=2 THEN GOSUB 444 >PU 
O.-PEN 13:G0SUB 4450 ELSE GOSUB 4430 

2480 PEN 3:G0SUB 4460:PEH 13:G0SUB >FJ 
4470 

2490 PEN 1:G0SUB 4330:GOSUB 4340:L0 >AU 
CATE tot,16:PRINT ab 
2500 IF do<>3 THEN 2540 ELSE PEN 2: >FU 
LOCATE 1,20:PRINT 'L'ERREUR EST DAN 
S:':PRINT STRING*(18,126) 
2510 IF ne=0 THEN 2520 ELSE IF nr<> HT 
ab AND m20ab THEN PEN 3:L0CATE 1, 
23:PRINT "L'ADO ET LA NULT.":G0T0 2 
540 

2520 IF nr20ab THEN PEN 3:L0CATE 1 >AC 
,23:PRINT "LA HUIT I PLI CATION": GOTO 
2540 

2530 IF nrOab THEN PEN 3:L0CATE 5, >AV 
23:PRINT "L'ADDITION 
2540 FOR u=127 TO 253:S0UND l.u, 1,1 >HP 
5:NEXT 

2550 IF )=1 THEN )=2:G0SUB 1570:G0 >HZ 
TO 2640 

2560 IF 1=2 THEN |=3:G0SUB 1580:G0T >HA 
2640 

2570 IF )=3 THEN j=l:GOSUB 1560 >ID 
2560 IF tep=i THEN 2680 >QK 
2590 BORDER 1:GDSUB 3030:1F |d«=p)« >LB 
THEN 2610 
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2600 jd»=p1«:y=v<l:G0T0 2620 >« 

2610 1dl=d1*:i=i*l >!K 

2620 l=Hl:z=zU >U 

2630 IF 1=4 OR z=31 THEN 3380 ELSE >GZ 

RETURN 

2640 IF tep=l THEN 2690 >DH 

2650 BORDER 1:1F )d«=pil THEN i=i*1 >HH 

ELSE y=v»l 
2660 GOSUB 4680:z=z«l >QG 

2670 IF z<31 THEN 1460 ELSE GOSUB 3 >KU 
030:GOTO 3380 

2680 ■=»U:z=z+l:G0SUB 3030:GOTO 27 >EQ 
00 

2690 z=z*l:GOTO 2730 >PG 

2700 BORDER 1:1F z=31 OR 1=4 THEN 3 >HG 
240 ELSE 1460 

2710 yy=yy»2:z=z*l:G0T0 2730 >K 
2720 yy=yytl:z=ztl >NA 

2730 BORDER 1:1F z<31 THEN 1460 ELS >ZH 
E GOSUB 3030: GOTO 3230 
2740 ' «•« VALSE FAVORITE ALLEGRETT >TF 
0(by HOZART t> AHSTRAD HAGAZINE) 
2750 RESTORE 4490:ENV 1,2,2,7,1,0,2 >DF 
00 

2760 FOR 110=1 TO 92:READ so.du >IC 
2770 IF so=2 THEN ton=0 ELSE ton=9 >BJ 
2760 SOUND 4,so,du>5,ton,l:S0UND 2, >PZ 
so-0.3,du«5,ton,l:S0UND l,so,du«5,t 
on,l:NEZT no 

2790 RESTORE 4490 >HC 

2800 FOR no=l TO 44:READ so.du >IU 
2B10 IF so=2 THEN ton=0 aSE ton=9 >BD 
2820 SOUND 4,so,du»4.5.ton,l:S0UND >KB 
2,so-0.8,dui4.5,ton,l:S0UND l,so,du 
«4.5, ton, 1 

2830 NEIT no: RETURN >PC 

2840 ' m Rép. iuste dans divi. A. >ÏG 

R. 
2650 BORDER 16,7:PAPERI0,9:PENI0,10 >JB 
:CLSI0 

2860 LOCATE 3,3:PRINT "TU AS RAIS >TU 
ON':PEN 3:PRINT TAB(3)STRING$(14,20 
6) 

2870 PEN 12:1F rep=2 THEN GOSUB 426 >CE 
0:LOCATE cd,B:PRINT ld*:PEN 3:PRINT 

TAB(cd)STRING*(ld,208) ELSE GOSUB 
4430 

2680 PEN 10:L0CATE 5,13:PRINT "CET >AK 
AIT :":PEN 3:PR1NT TAB15) STR1NGX9 
,206) 

2890 GOSUB 1830 >YD 

2900 PEN l:c2=15-cl:L0CATE c2,19:PR >DU 
INT ce: IF mOl THEN 2920 
2910 LOCATE (7-res), 19:PRINÎ td >ZV 
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2920 GOTO 2240 >HJ 

2930 ' »» Rép. fausse dtvi. S. 8. >YG 

2940 BORDES 0,l:PAPE8i0,S:PENi0,3:C >HB 

LSIO 

2950 LOCATE 4,3:PR1NT "TU AS TORT >IB 

•:PEN 13:PRINT TAB(4) STRINGX12.13 

1) 

2960 IF rep=l THEN PEN 3:G0SUB 4430 >L0 

:G0T0 2980 

2970 PEN 12:G0SUB 4280:L0CATE cd,6: >JF 

PR1NT 1d$:PEN 13:PR1NT TAB(cd)ST8IN 

G»( jd.131) 

2980 PEU 3:L0CATE 5,13:PB1NT "C'ETA >AX 

IT :":PEN 13:PRINT TAB(5)STRING»(9, 

131) 

2990 GOSUB 1030 >YE 

3000 PEM l:c2=15-cl:L0CATE c2,19:PR >CT 

INT ce: IF m-1 THEN 2390 

3010 GOTO 2640 >HC 

3020 ' m Score loueur 1 >IH 

3030 GOSUB 3180:1F rep=2 THEN 3100 >AL 

3040 GOSUB 4250:L0CATE cr,3:PRINT p >FH 

s»:PEN 2:L0CATE cr,4:PRINT STRINGK 

ps. 131) 

3050 LOCATE 2,8:PEN 5:PRINT "NBR DE >FK 

JEUI:":PEN 2:L0CATE 2,9:PRINT STRI 
NG»(12,131):PEN 15:L0CATE 14,8:PRIN 
T 2-1 

3060 LOCATE 2,13:PEN 5:PEINT 'NBR D >JK 
E PTS :':PEN 2:L0CATE 2,14:PRINT ST 
RING»(12,131):PEN 15:L0CATE 14.13:P 
R1NT yy 

3070 LOCATE 2,18:PEN 5:PRINT ■NBR D >GG 
E CHA.:':P£N 2:L0CATE 2,19:PRINT ST 
RING»(12,131):PEN 15:L0CATE 14,18:P 
RINT ■ 

3080 GOSUB 4310:RETURN >RT 

3090 ' m Score deui loueurs >ÏE 
3100 LOCATE 2,12:PRINT STRINGK16," >FH 
i") 

3110 PEN S:GOSUB 4260:LOCATE cf,4:P >NA 
RINT p|»:PEN 2:L0CATE cf,5:PRINT ST , 
BING»(p|,131) 
3120 LOCATE 2.7:PEN SiPRINT 'NBR DE >KZ 

JEUl:"::PEH !5:PR1NT x:PEN 2:L0CAT 
E 2,B:PRINT STRING»(12,131) 
3130 LOCATE 2,10:PEN S:PRINT "NBR D >IN 
E PTS :'::PEN 15:PRINT y:PEN 2:L0CA 
TE 2,11:PRINT STR1NG»(12,131> 
3140 PEN 5:G0SUB 4270:L0CATE df,14: >RU 
PRINT d1*:PEN 2:L0CATE dt,15:PRINT 
STBING»(d1,216) 

3150 LOCATE 2,17:PEK S:PRINT "NBR D >NQ 
E J£UX:";:PEH 15:PRINT v:PEN 2.-L0CA 
TE 2,18:PRINT ST8 IMG*( 12,216) 



3160 LOCATE 2,20:PEN 5:PRINT 'NBR D >NY 
E PTS :";:PEN 1S:PR1NT »:PEN 2:L0CA 
TE 2,21:PRINT STBIHG*<12,216) 
3170 GOSUB 4310:RETURN >RT 

3180 ' m Si.il. tabl. >ÏE 
3190 PAPER*0,U:PENI0,2:CLSI0 )IW 
3200 FOR i=2 TO 21:L0CATE 1,1:PRINT >l« 

"••iLOCATE 18,i:PRINT '»':NEIT 
3210 LOCATE 1,1:PRINT STRING»U8,"i >EA 
") 

3220 LOCATE 1.22:PRINT STRINGII18," >PÏ 
<"):RETURN / 

3230 ' m Fin loueur 1 >YA 
3240 HODE 0:PAPER 5:PEN 10:B0RDER >GP 
iCLS 
3250 LOCATE 4,4:PRINT "C'EST FINI >EU 

; 

3260 PRINT TABU) STÏING»(14,23B) )AU 
3270 PEN 9:L0CATE cs,9:PRINT ps* >AN 
3260 GOSUB 4230:PEN 3:PRINT TAB(cs) >UF 

STRING»(ps,238) 
3290 PEN 10:L0CATE 6,14:PRINT "CET )JU 
AIT : 

3300 PEN 3:PR1NT TABI6) STRINGK9.2 >FP 
38) 

3310 IF yy>48 THEN LOCATE 4,20:PEN >VV 
10:PRINT 'TRES - BIEN !':PEN 3:PR1 
NT TABU) STRING*(14,238):G0T0 3360 
3320 IF yy>36 THEN LOCATE 6,20:PEN >KC 
10:PRINT "! BIEN !":PEN 3:PRINT T 
ABI6) STRING«9,236):G0T0 3360 
3330 IF yy>24 THEN LOCATE 4,20:PEN >VJ 
10:PRINT 'ASSEZ - BIEN !*:PEN 3:PRI 
NT TABU) STRING»<14,238):G0T0 3360 
3340 IF yy>12 THEN LOCATE 5,20:PEN >NF 
10:PRINT "MEDIOCRE !':PEH 3:PKINT T 
AB(5) STBING«(10,238):G0T0 3360 
3350 IF yy<=12 THEN LOCATE 2,20:PEN >DN 

10:PRINT *HAL ! A REVOIR !":PEN 
3:PRINT TABI2) STRING*( 18,238) :GOTO 

3360 
3360 GOSUB 2750: GOTO 3750 >TQ 
3370 ' m Fin prograiie >ÏF 
3380 SYHBOL AFTER 145 >PE 

3390 SYHBOL 145,1,1,3,3,7,7,15,15 >ZV 
3400 SYHBOL 146,128,128,192,192,224 >NP 
,224,240,240 

3410 SYHBOL 147,31,31,63,63,127,127 >J0 
,255,255 

3420 SYHBOL 148,246,248,252,252,254 >NN 
,254,255,255 

3430 SYHBOL 155,255,255,254,254,252 >NH 
,252,248,248 

3440 SYHBOL 150,255,255,127,127,63, >JH 
63,31,31 



3450 SYHBOL 156,15,15,7,7,3,3,1,1 >ZU 

3460 SYHBOL 152,240,240,224,224,192 >NT 

,192,128,128 

3470 SYHBOL 153,124,62,31,15,15,15, >FD 

15,15 

3480 SYHBOL 157,240,240,240,248,248 >NV 

,252,124,124 

3490 SYHBOL 249,192,240,252,252,254 >NH 

,254,255,255 

3500 SYHBOL 250,15,31,63,127,254,25 MCA 

2,248,240 

3510 SYMBOL 251,240,248,252,254,127 >KC 

,63,31,15 

3520 SYHBOL 252,255,255,254,254,252 >NZ 

,252,240,192 

3530 SYHBOL 253,15,15,15,15,15.31,6 >FF 

3,127 

3540 SYHBOL 254,127,63,31,16,15,15, >FH 

15,15 

3550 SYHBOL 255,240,224,192,126,240 >NH 

,240,240,240 

3560 HODE 0: PAPER 5: PEN 10: BORDER >GV 

iCLS 

3570 i»=CHR*(32)*CHR«<32):1»=CHR»(l >KU 

43):k»=CHR»(249):II=CHR»(145l 

3580 i»=CHR»(146):n$=CHR«(133):y«=C >TB 

HR*U38):o»=CHR«(254):p»=CHR»(147) 

3590 q»<H8*< 1481 :r»=CHR»( 141 ):s*=C >TE 

S»(250):U=CHR»(lS5):u>=CHR<(150! 

3600 «*<HR»(135):w$=CHR»(251):«»=C >TH 

HR*(255):z»=CHR»(253):h»=CHR*(142) 

3610 f *=CHR»C 1521 : g*=CHR»(156) :e*=C >VD 

HR>(252):aa$=CHR»(153):bM=CH8»(157 

) 

3620 LOCATE 2,3:PRINT )»*k»«i»*|»*k >HV 

»H«»l»*l»H«tn«*y«ti»H«*t» 

3630 LOCATE 2,4:PRINT n««o»*l»*n»*o >HU 

»*i»»p»tq»*i»*n»*y»H»*n**y» 

3640 LOCATE 2,5:PtlNT r**sl*l»»r«*s >JN 

»*l»»t»*u»«i»*n«ty*H»*ni«y* 

3650 LOCATE 2,6:PRINT v»*w«H»*)t*< >JH 

»H»*n»*y»ti»*q»«p»H»*n»«y* 

3660 LOCATE 2,7:PRINT nttzDUHttb >KR 

M*i»»r«*hMl»»uMt**i»»n»+y« 

3670 LOCATE 2,8:PRINT Ji*e»H«*nHa )JL 

a»*l»*n*»y»»i«*|»*«»*i»*l*M» 

3680 LOCATE 2,10:PEN 3:PRIHT STRING >HC 

•(16,238) 

3690 IF y>w THEN PEN 10:G0SUB 4390: >TE 

LOCATE cj,15:PRINT pt«:PEN 3:PRINT 

TABIcg)STRING»(p.l,236):G0T0 3730 

3700 IF y<» THEN PEN 10:G0SUB 4400: >TL 

LOCATE d|,15:PRINT dj»:PEN 3:PRINT 

TAB(dg)STRINM<di,23B):G0T0 3730 

3710 IF y=» THEN PEN 3:L0CATE 3,15: >RB 
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PfiINT "VOUS ETES LES":PEN 10:PBIN 
T TAB(3)STB1NG«(15,238):PEN 3:L0CAT 
E 6,20:PBINT "HEILLEUBS":PEN 10:PBI 
NT TAB(6)STRING*(9,238> 

3720 GOSUB 2750; GOTO 3750 >T8 

3730 LOCATE 2,20:PR1NT "TOU ABE THE >WL 
BEST !":PEN 10:PRINT TABl2)STRiNG« 
(18,238): GOTO 3720 

3740 ' m Relouer >ÏG 

3750 BOBDER 1:PAPER 0:PEN 1:CLS >ZN 

3760 LOCATE 1,7:PRINT "ENCORE UNE P >QP 
ARTIE ?":PR1NT STRINGJU9.238) 

3770 LOCATE 1,15:PR1NT •- (0)01 OU >PG 

(N)ON -":PRINT STRINGt(20,238) 

3780 IF INKEY(34)=0 THEN 30 >UG 

3790 IF INKET(46)=0 THEN END >UA 

3800 GOTO 3780 >NG 

3810 ' •«« Ecr. droite A gauche Nbr >ÏE 

3820 ON nbl GOTO 3830,3840,3860,389 >DE 
0,3920,3950,3980,4010,4040 

3830 nr3=»ALlnrS):RETURN >VR 

3640 un*=RIGHT»(M»,l):un=VAL(un»): >NT 
d«»=RIGHT»Cnr*,2):dil=VAL(dïl):dK=( 
dil-un)/10 

3850 nr3=(unllO)tdK:8ETURN >UA 

3860 GOSUB 3B40 >TE 

3870 ts*=RIGKTIlnrt,3):tsl=VAL(t5») )ZJ 
:ts=(tsl-dil)/100 

3880 nr3=lnr3«10)*t9ifiETURN >IN 

3890 GOSUB 3660 >ÏK 

3900 qe«=RIGHT«(nrS,4):qel=VAL(qe»> )ZH 
:qe=(qel-tsl)/1000 

3910 nr3=(nr3»10)*qe:RETURN >IN 

3920 GOSUB 3890 >!G 

3930 cq»=RIGHT«lnM,5):cql=VAL(cq» >AK 
:cq=(cql-qel)/10000 

3940 nr3=(nr3H0Hcq:RETURN >IP 

3950 GOSUB 3920 >TD 

3960 si»=BlGHT»(nr»,6):sil=ÏAL(si») >CG 
:s«=<sil-cql)/100000 

3970 nr3=<nr3«10)«si:RETUBN >IT 

3960 GOSUB 3950 >TK 

3990 at*=BIGHT*(nr»,7):sU=VAL(sW) >DU 
:st=(stl-SKl)/1000000 

4000 nr3=(nr3»10l»st:RETURN >IX 

4010 GOSUB 3980 >IH 

4020 ht»=RIGHT»(nr»,8):htl=¥AL(hU> >DD 
:ht=(htl-stl)/10000000 

4030 nr3=(nr3U0Mht:RETURN >IH 

4040 GOSUB 4010 >WF 

4050 nfS=RIGHT»(nr»,9J:n(l=tfAL(nf») >EJ 
:nf-(nfl-htl)/100000000 

4060 nr3=(nr3ilO)»nf:BETURN >IH 

4070 ' IM Résuit. suit. >TD 

4080 GOSUB 4150: IF ne=0 THEN nr=nr3 >UV 



:nr2=nr3:G0SUB 41S0:G0T0 1510 ELSE 

GOSUB 4170:DN ne GOTO 4090,4100,412 



4090 LOCATE 6,14:G0SUB 4190:L0CATE >TQ 

14,15:6070 4200 

4100 nrl=nr2:nr2=0:L0CATE 12,14:G0S >GT 

UB 4160:nr2=nrl*(nr3H00) 

4110 LOCATE 6,15:G0SUB 4190:L0CATE >TK 

14,16:G0T0 4200 

4120 nrl=nr2:nr2=0:L0CATE 12,14,-GOS >GV 

UB 4160:nr2=nrlMnr3H00> 

4130 nrl=nr2:nr2=0:L0CATE 11,15:G0S >HF 

UB 4160:nr2=nrHUr3il000) 

4140 LOCATE 6, 16:G0SUB 4190:L0CATE >TQ 

14,17:GOT0 4200 

4150 LOCATE 14,12:G0SUB 186O:G0T0 3 >EJ 

820 

4160 GOSUB 41S0:G0SUB 1B80:G0T0 382 >DR 



4170 nrl=nr3:nr3=0:L0CATE 13,13:G0S >RW 

UB 4160:nr2=nrlMnr3H0):RETURN 

4160 un=0:di=0:ts=0:qe=0:cq=0:s«=0: >GJ 

st=O:ht=0:nf=0:di=0:nr3=0:rdl=O:m= 

0:tpl=0:tp2=0:RETURN 

4190 GOSUB 4180:PBIMT STBING»(9,131 >NM 

kRETURN 

4200 GOSUB 1880:G0SUB 3B20:nt=nr3:G >ZC 

OSUB 41B0:G0T0 1510 

4210 ' m Nbr >1K 

4220 nr=VALlnr»):RETURN >UH 

4230 cs=INT(21-ps)/2:BETURN >IX 

4240 cp=INT(21-id)/2:EETUEN >IX 

4250 cr=lNT(19-ps)/2:RETURN >1F 

4260 cf=INT(19-pf)/2:RETURN >IJ 

4270 df=INT(19-di)/2:BETURN >XV 

4280 1d=LEN<id») >LZ 

4290 cd=lNT(19-id)/2:RETURN >XI 

4300 FOR t=l TO 1500:NEIT:BETURN >AT 

4310 FOB t«l TO 3000:NEIT:BETURN >AQ 

4320 ne»=STR»(b):ne=LEN(ne»)-2:RETU >GR 

RN 

4330 ab»=ST8«(ab):abb=LEN(ab»l:RETU >GE 

RN 

4340 tot=INT(19-abb)/2:BETUBN >ZU 

4350 rd«=STB»lrd):res=LEN(rd$):RETU >HA 

BN 

4360 oc«=STR$(cc):cl=LEN(cc»):RETUR >FY 

N 

4370 IF cc<0 THEN c2-15-cl ELSE c2= >E2 

16-cl 

4380 BETUBN >FJ 

4390 cg=INT(21-p|)/2:RETUBN >XG 

4400 dg=INT(2!-dt)/2:RETURN >U 

4410 GOSUB 680 >QC 

4420 GOSUB 1210:G0T0 1560 >T2 



4430 GOSUB 4250:L0CATE cr,8:PRINT p >LK 

s$:PEN 3:PRINT TAB(cr)STBlNG*(ps,20 

8):BETUBN 

4440 GOSUB 4280:L0CATE cd,6:PBINT i >PB 

d»: BETUBN 

4450 PBINT TAB(cd)STRINGS(id,208):B >LD 

ETUBN 

4460 LOCATE 5,13:PBINT "C'ETAIT :•: >KE 

BETUBN 

4470 PBINT TAB(5)STB1NG»I9,20B):RET >HP 

UBN 

4480 LOCATE U,23:PBINT "Réponse NO >UB 

N CONFORME": PRINT TAB(11)STB1HG»120 

,126):BETU8N 

4490 DATA 159,4,169,4,159,4,127,4,1 >ED 

59,4 

4500 DATA 213,4,253,4,239,4,284,4,1 >DK 

90,4 

4510 DATA 213,4,253,4,319,4,253,4,3 >DJ 

19,4 

4520 DATA 213,4,239,4,284,4,338,4,2 >DU 

84,4 

4530 DATA 336,4,213,8,2,4,159,4,169 >CH 

,4 

4540 DATA 159,4,127,4,159.4,213,4,2 >DB 

53,4 

4550 DATA 239,4,284,4.190,4,213,4,2 >DQ 

53,4 

4560 DATA 319,4,253,4,319,4,213,4,2 >DU 

39,4 

4570 DATA 264,4,338,4,284,4,338,8,3 >EE 

19,4 

4580 DATA 2, 4, 426, 4, 319, 4, 253, 4 >XF 

4590 DATA 253,4,239,4,284,4,426,4,3 >DF 

38,4 

4600 DATA 284,4,284,4,253,4,319,4,4 >DU 

26,4 

4610 DATA 319,4,253,4,336,4,213,4,4 >DN 

26,4 

4620 DATA 213,4,338,4,213,4,319,4,2 >DH 

53,4 

4630 DATA 426,4,426,4,319,4,253,4 >YD 

4640 DATA 253,4,239,4,284,4,426,4,3 >DB 

38,4 

4650 DATA 284,4,284,4,253,4,319,4,4 >DB 

26,4 

4660 DATA 319,4,253,4,338,4,213,4,4 >DU 

26,4 

4670 DATA 213,4,338,4,213,4,319,8,2 >CE 

,4 

4680 IF 2-15 JWD((«=0 AND ii=OI0«(i= >H¥ 

AND y=0))THEN |=1:G0SUB 1560:B08D 

EB 1:G0SUB 3030:1F 1d»=pt* THEN ld« 

=d1« ELSE 1d»=pl»:a=Hl 

4690 BETUBN >GC 
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1010 ' >IE 

«ARCHE TURQUE 
1020 >===========««========«■•== >IF 



1030 ' 

1040 EKV 5,1,7,4,7,-1,20 
1050 RESTORE 1130 
1080 READ A,B,C 



>IG 
>QP 
>LK 
>ÏE 



1070 IF a=-l THE» IF d=0 THEH RESTO >UE 

RE 1130:d=l ELSE d=0 

1080 IF a=-2 THE» IF e=0 THEH RESTO >UH 

RE 1200:e=l ELSE e=0 

1090 IF a=-3 THEK RESTORE 1130 >IL 

1100 IF SGN(»)=-1 THEH 1060 >TE 

1110 SOUHD A,B,CM4,7-(A AHD l),-5« >FP 

(BOO) 

1120 GOTO 1060 >U 

1130 DATA 49,0,4,42,127,1,28,0,4,2, >GD 

142,1,2,150,1,2,142,1,49,284,2,42,1 

19,2,28,284,2,49,239,2,42,0,2,26,19 

0,2,49,239,2,42,106,1,28,190,2,2,11 

9,1,49,239,2 

1140 DATA 42,127,1,28,190,2,2,119,1 >JY 

,49,2B4,2, 42,95,2, 28,284,2,49,239,2 

,42,0,2,26,190,2,49,239,2,42,89,1,2 

8,190,2,2,95,1,49,239,2,42,100,1,28 

,190,2,2,95,1 

1150 DATA 49,284,2,42,63,1,28,284,2 >CI 

,2,71,1,49,239,2,42,75,1,28,190,2,2 

,71,1,49,284,2,42,63,1,28,284,2,2,7 

1,1,49,239,2,42,75,1,28,190,2,2,71, 

1,49,284,2 

1160 DATA 42,60,4,26,284,2,33,239,2 >UP 

,12,190.2,49,239,2,42,71,2,28,190,2 

,49,239,2,42,60,2,28,190,2,49,379,2 

,42,63,2,28,379,2,49,319,2,42,71,2, 

28,253,2,49,319,2 

1170 DATA 42,80,2,28,253,2,49,319,2 >RG 

,42,71,2,28,253,2,49,379,2,42,63,2, 

28,379,2,49,319,2,42,71, 2,28,253,2, 

49,319,2,42,60,2,26,253,2,49,319,2, 

42,71,2,28,253,2 

1180 DATA 49,379,2,42,63,2,28,379,2 >JG 

,49,319,2,42,71,2,28,253,2,49,506,2 

,42,80,2,28,506,2,49,402,2,42,84,2, 

28,284,2,49,379,2,42,95,2,28,319,2, 

49,0,2,42,0,2 

1190 DATA 28,0,2,-1,-1,-1 >8B 

1200 DATA 49,0,4,42,95,2,28,0,4,2,8 >GU 

9, 2, 49, 478, 4, 42, 80, 2, 28, 478, 4, 2, 60, 

2,49,379,4,42,71,1,26,379,4,2,80,1, 



La marche 

TURQUE 



Dominique WATHIER 



Valable pour CPC 464, 
669 et 61 28 



Retrouvez sur votre CPC 

cet air célèbre qui ravira votre 

haut-parleur. C'est presque 

aussi beau que la Truite 

de Mozart, vous savez : 

pom -pom- pom - pom. 

2,89,1,2,95,1,49,319,4,42,106,4,28, 

319,4,49,0,4 

1210 DATA 42,95,2,28,0,4,2,69,2,49, >GH 

478,4,42,80,2,28,478,4,2,80,2,49,37 

9,4,42, 71, 1,28,379,4,2, 80,1, 2,B9,1, 

2,95,1,49,319,2,42,106,2,28,319,2,4 

9,0,6,42,0,2 

1220 DATA 28,0,6,2,119,2,2,106,2,49 >UÏ 

,566,4,42,95,2,28,568,4,2,95,2,49,4 

78,4,42,89,1,28,478,4,2,95,1,2,106, 

1,2,119,1, 49,379,4,42, 127,4,2B,379, 

4,49,0,4,42,119,2 

1230 DATA 28,0,4,2,106,2,49,568,4,4 >LC 

2,95,2,28,568,4,2,95,2,49,478,4,42, 

69,1,28,478,4,2,95,1,2,106,1,2,119, 

1,49,379,2,42,127,2,28,379,2,49,0,6 

,42,0,2,28,0,6 

1240 DATA 2,127,1,2,142,1,2,150,1,2 >HR 

,142,1,49,284,2,42,119,2,28,264,2,4 

9,239,2,42,0,2,26,190,2,49,239,2,42 

,106,1,26,190,2,2,119,1,49,239,2,42 

,127,1,28,190,2 

1250 DATA 2,119,1,49,284,2,42,95,2, >GF 

26,284,2,49,239,2,42,0,2,28,190,2,4 

9,239,2,42,89,1,28,190,2,2,95,1,49, 

239,2,42,100,1,28,190,2,2,95,1,49,2 

84,2,42,63,1 

1260 DATA 26,264,2,2,71,1,49,239,2, >CA 

42,75,1,26,190,2,2,71,1,49,264,2,42 

,63,1,26,284,2,2,71,1,49,239,2,42,7 

5,1,28,190,2,2,71,1,49,356,2,42,60, 

4,28,358,2 

1270 DATA 33,284,2,12,239,2,49,284, >CX 

2,42,71,2,28,239,2,49,0,2,42,63,2,2 

6,0,2,49,379,4,42,60,2,26,379,4,2,6 

3,2,49,426,4,42,71,2,28,426,4,2,75, 

2,49,478,4 



1280 DATA 42,71,2,28,478,4,2,95,2,4 >H2 

9,426,4,42,69,2,28,426,4,2,106,2,49 

,379,4,42,119,4,28,379,4,49,379,4,4 

2,119,1,29,379,4,2,127,1,2,142,1,2, 

127,1,49,568,2 

1290 DATA 42,142,2,28,568,2,49,0,2, >ïï 

42,0,2,28,0,2,-2,-2,-2 

1300 DATA 49,0,4,42,142,2,28,0,4,2, >UJ 

127,2,49,568,2,42,113,4,28,568,2,33 

, 379, 2, 12, 284, 2, 49, 379, 2, 42, 142, 2, 2 

8,264,2,49,379,2,42,127,2,28,284,2, 

49,566,2,42,113,2 

1310 DATA 26,568,2,49,379,2,42,127, >HF 

2,28,284,2,49,379,2,42,142,2,26,284 

, 2, 49, 379, 2, 42, 150, 2, 28, 284, 2, 49, 42 

6,4,42,169,2,28,426,4,2,150,2,49,40 

2,4,42,142,2 

1320 DATA 28,402,4,2,127,2,49,379,4 >QC 

,42,150,2,28,379,6,2,190,2,17,379,2 

, 10, 142, 2, 49, 0, 2, 42, 127, 2,28, 0, 2, 48 

,638,2,42,113,4,28,568,2,33,379,2,1 

2,284,2,49,379,2 

1330 DATA 42,142,2,28,284,2,49,379, >K¥ 

2,42, 127,2, 26,264,2,40, 56B,2,42, 113 

,2,26,568,2,49,379,2,42,127,2,26,28 

4, 2,49, 379, 2, 42, 142, 2, 28, 284, 2, 49, 3 

79,2,42,150,2 

1340 DATA 28,284,2,49,426,4,42,169, >CU 

2,28,426,4,2,127,2,49,379,4,42,150, 

2,28,402,4,2,190,2,49,568,2,42,142, 

2,26,568,2,49,0,6,42,0,2,28,0,6,2,7 

1,2,2,63,2 

1350 DATA 49,568,2,42,56,4,28,566,2 >UE 

,33,379,2,12,294,2,49,379,2,42,71,2 

,28,284,2,49,379,2,42,63,2,28,284,2 

,49,568,2,42,56,2,26,568,2,49,379,2 

,42,63,2,28,284,2 

1360 DATA 49,379,2,42,71,2,28,264,2 >KB 

,49,379,2,42,75,2,28,284,2,49,426,4 

,42,84,2,28,426,4,2,75,2,49,402,4,4 

2,71,2,28,402,4,2,63,2,49,379,4,42, 

75,2,26,379,6 

1370 DATA 2,95,2,17,379,2,10,71,2,4 >FB 

9,0,2,42,63,2,28,0,2,49,566,2,42,56 

,4,28,568,2,33,379,2,12,284,2,49,37 

9,2,42,71,2,28,264,2,49,379,2,42,63 

,2,26,264,2 

1380 DATA 49,568,2,42,56,2,26,568,2 >PT 

, 49,379,2, 42,63,2,28,2B4,2,49,379,2 

,42,71,2,28,264,2,49,379,2,42,75,2, 

28,284,2,49,426,4,42,84,2,28,426,4, 

2,63,2,49,379,4 

1390 DATA 42,76,2,28,379,4,2,95,2,4 >UV 

9, 568, 4, 42, 71 , 2, 28, 568, 4, 2, 0, 2, -3, - 

3,-3 
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UTILITAIRE 



Disk 



Xavier GROSSETETE 



Valable pour CPC 664 -61 28 



Disk est un utilitaire pour disquettes qui permet 

le formatage, la copie de disquettes, la copie de fichiers, 

et l'édition de secteurs. Il comprend 7 fichiers. DISK, DISC, 

SCREEN, COP2, COPIEUR, EDIT et SPEEDER. Vous devez 

donc taper et sauver tous ces programmes. Ensuite il faut 

effectuer un RUN "SCREEN" pour sauver la page-écran. 

Puis un RUN"DISK" pour lancer le tout. 



Rappel 

Pour obtenir X tapez CTRL+X 

<- " CTRUH 

-> " CTRL+I 

î " CTRL+K 

4. " CTRUJ 



AZERTY 



QWERTY 





Secteur ; Kl Piste ; Page ; 




4000 : 00 58 43 4E 4B 53 20 20 20 42 4i 53 00 00 03 47 ; 


zimks BAS.,. G 


4010 


02 03 04 OS 06 07 08 03 3E 00 00 00 00 00 00 00 : 


) 


4020 


00 53 43 52 45 45 4E 20 20 42 41 53 00 00 00 03 : 


SCREEN BAS,,.. 


4030 


0C 3D 00 00 00 00 00 00 00 00 00 00 00 00 00 00 : 


- 


4040 


00 44 49 53 4B 20 20 20 20 42 41 S3 00 00 00 11 ; 


DISK BAS,,,, 


40S0 


0B 0I> 73 00 00 00 00 00 00 00 00 00 00 00 00 00 ; 


s , 


4060 


00 44 49 53 43 20 28 20 20 42 41 53 00 00 00 4B ; 


MSC BDS...K 


4070 


0E Or 10 11 12 13 14 15 1D 70 00 00 00 00 00 00 : 


cW'Iàs:!!,' 


4080 


00 43 4F 50 32 20 20 20 20 42 41 53 00 00 00 12 : 


4030 


18 19 1A 00 00 00 00 00 00 00 00 00 00 00 00 00 : 




40110 


00 43 4F 50 49 45 S5 52 20 42 41 53 00 00 00 13 ; 


COPIEUR BAS,,,, 


40B0 


16 1B 1C 00 00 00 00 00 00 00 00 00 00 00 00 00 




40C0 


00 48 41 4C 4C 20 20 20 20 20 20 20 00 00 00 02 : 


liALL 


4060 


QA 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 : 




40E0 


00 53 50 45 45 44 45 52 20 42 41 53 00 00 00 04 ; 


SPEEDER BAS,,,, 


40F0 


1E 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 : 





Nodinw . 

Paw suivant* 



10 DUT (4FA7E>,1 


>cc 


20 


'iiimmm 


>LB 


30 


'» i 


>LC 


40 


' ■ Grand i 


>LD 


50 


'» Ecran » 


>LE 


60 


'i i 


>LF 


70 


••SAHE'DISK • 


>LG 


80 


•» l 


>LH 


90 


'HHIXIfIXlt 


>U 


100 INK 0,13:BOBDEB 13: INC 1,0:H0DE >DB 


2 







110 PAPES 0:PEN 1 
120 A*kBC00:B*kBD00:H*HMEH 
130 OUI a,2:0UT b,50 
1«0 0UT a,6:0UT b,34 
150 OUI a,7:DUT b,35 
160 OUT a,l:0UT b,0 
170 FOI! 1=1 TO 77:PBINT USING "tV 
•;CMU(164);'BieH£AD SOFTWARE 1 
088 *;:HEn 
180 OUT A,1:0UT B,48 
190 OUT CtFA7E),l 
200 FOI 1=1 TO 3O00:HEXT:CLS 
210 INK 0,0:B08DB 
220 OUT A,1:0UT B,40 



230 OUT A,2:0UT B.62E >PK 

240 OUT A, 6: OUT B,M9 >PB 

250 OUT A,7:0UT B.ttlB >PN 

260 IF WPCIFSOO) AND 10O0 THEN OU >QL 
T A,7:0UT B,UE 

270 «ODE 0:INC 0,0:B0BDEI 0:F08 1=1 >M 
TO 15: INC l,0:M3T 

280 GOSUB 490 >JC 

290 OUT CtrFA7E),l >L8 

300 GOSUB 570 >HE 

310 LOAD*01SK.81N",tCOOO >TX 

320 GOSUB 600 >HA 

330 CALL 18036 >JD 

340 CLS >UB 
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3S0 IKK l.lsIHK 2,2: 1NK 3,11:1HK 4, >JY 

26:INK 5,20:INK 14,26:INK 15,11 

360 CALL 1.8000 >HH 

370 SYHBOL AFTEB 32 >HH 

360 SYHBOL 125, 660, 610,630, 666, 67E, >HJ 

660,630 

390 SVHBOL 123,K,48,&3C,666,67E,46 >FH 

0,630 

400 SÏHBOL 93,61E,630, 638, 460, 638,6 >GR 

30.6FO 

410 SVHBOL 64,160,610,178,10,170,40 >FP 

0,670 

420 SVHBOL 92,0,0,63C,666,660,63E,6 >FU 

8,618 

430 SVHBOL 93,0,630,66,666,666,666, >GV 

666,63E 

440 SVHBOL 94,616,624 >PV 

4S0 SVHBOL 47,191,191,191,191,191,1 >LU 

91,191,191 

460 SVHBOL 92,253,253,253,253,253,2 >LN 

53,253,253 

470 GOSUB 630 >HK 

4B0 RUN'DISC >HA 

490 OUT (6FA7E),1 >LU 

500 FOE 1=1 TO 999:NEXT >RH 

510 OUT <6FB7F>,4 >LR 

520 OUT (6FB7F),2-PEEX(4A700) >WA 

530 DK=INP(6FB7F> >HT 

540 OUT (6FA7EI,0 >LN 

550 IF (DK AND 321=0 THEN CALL >UV 

560 RETURN >ZG 

570 B=l:al= , 21OOC0ED5F77237CB720F80 >HE 

EOA2100C01100401ABE2813477E3006C632 

300A180406323803B838017877132370B72 

OE30DC20D80C90000002100COU00400100 

40EDB0C9 1 

580 FOR A=68000 TO 68000i67:POKE A, >AF 

ÏAL("6"tHID»(A»,A-6BOO0tHB,2)):B=B 

«i:NEXT 

S90 RETURN >ZK 

600 EUT 1,2,-1,1, 2,1, liEW 1,3,30,4 >UC 

:ENV 2,4,7.4:ENIf 3,15,15, 5:F0R 1=95 

6 TO 239 STEP-20:SOUND 1,1,7,13,1,1 

: SOUND 2,1/2,7,13,1, li SOUND 4,1/4,7 

,13,1,1 

610 NEXT >EC 

620 BETUBN >ZD 

630 SVHBOL 239,0,0,0,0,0,255 >VK 

640 SVHBOL 240,60,60,61F, 620,620,62 >JL 

7,628,628 

650 SYHBOL 241,60,60,6FF,60,60,60,6 >DE 

0,60 

660 SVHBOL 242,60,60,6F8,64,64,6E4, >GC 

614,614 



670 SVHBOL 243,628,628,627,620,620, >JT 

61F, 60,60 

680 SVHBOL 244,614,614, 6E4, 64, 64, 6F >GG 

8,60,60 

690 SVHBOL 245,628,628,628,628,626, >U 

628,628,628 

700 SYHBOL 246,614,614,614,614,614, >LH 

614,614,614 

710 SÏHBOL 247, 60,60,60,6FF, 60,60,6 >DH 

0,60 

720 BETUBN >ZE 



10 'IMIiUfflflHItf 


>LA 


20 '» « 


>LB 


30 '< DISK ■ 


>LC 


40 '• (c)BIGHEAD • 


>LD 


50 >■ SOFTWARE » 


>LE 


60 '< 1989 « 


>LF 


70 '■ » 


>LG 


80 '«SAVE'DISC « 


>LH 


90 'HIMHHIIHH 


>U 


100 ON BREAK GOSUB 2930 


>QP 


110 DIH 81(3,100) 


>AJ 


120 INK O,26:B0EDER 13: 1MK 1,26 


>I2 


130 PAPER 0:PEN 1 


>LG 


140 DIH a»(23) 


>FD 



150 HODE 2:0RIGIN 0,0,320,640,0,400 >HJ 
:CLG 1:0RIGIN 0,0,0,640,0,400 

160 RESTORE >HB 

170 ON BREAK GOSUB 2930 >QI 

180 GOSUB 530 >HG 
190 effa=0:reno=OicaU=0:depr=0:rec >JL 
u=0 

200 HINDOU l,BO,l,25:poi=Y« >VP 

210 GOSUB 700 >GK 

220 GRAPHICS PAPER >PT 

230 l*=l >UB 

240 viai»=y%*n»tl >LA 

250 yiin(=y(H >UF 

260 caail=nt<l >TF 

270 111=1 >UF 

280 LOCATE 11*1,1**1 >NZ 

290 J1=Y**1 >QH 

300 PAPER 1 >TE 

310 PEN >ZG 

320 PRINT A*(U) >EA 

330 PAPER 0:PEH 1 >U 

340 C»=l >TH 

350 At=INKEV« >PB 
360 IF A«=CHR»(240) OR A»=T AND J >ZV 
*>yiin*-l THEN GOSUB 450 



370 IF A»=CHR»(24i) OR A»="J," AND J >ZB 

«<Yia«l*l THEN GOSUB 490 

380 IF A»="X" OR M=" ' OR a»=CHR»( >ZQ 

13) THEN catA=0:E=0:R=0:rE=0:D=0:GO 

TO 1470 

390 GOTO 350 )ZG 

400 LOCATE XH1,J*:P8INT A»(I1):RET >GA 

URN 

410 PAPER 1:PEN >LH 

420 LOCATE I**1,J1:PRINT AMI») >VS 

430 PAPER 0:PEN 1 >LK 

440 RETURN >ZD 

450 GOSUB 400 >HC 

460 IF 11-1=0 THEN cl=c2*:ll=ciail: >GA 

tl=yia«l: GOSUB 410:RETURN 

470 IF LEFT«(A»(11-1),1)=CHR»<247) >FG 

THEN J1=J*-2:C*=C1-1:U=I1-2:G0SUB 

410:RETURN 

480 cl=Cl-l:l»=ll-l:Jl=Jl-l:GOSUB 4 >HZ 

10: RETURN 

490 GOSUB 400 >HG 

500 IF il=cia«l THEN d=l:il=l:)l=y >CH 

■ln(:GOSUB 410:RETURN 

510 IF LEFT»<A»lll*l),l)=CHR»(247) >FT 

THEN cl=Cl*l:Jl=Jl*2:ll=ll*2:G0SUB 

410: RETURN 

520 cl=Cl*l:ll=ll*l:,ll=Jl*l:GOSUB 4 >HH 

10: RETURN 

530 READ n*,«l,y* >LH 

540 A»(l)="Annulation" >ÏH 

550 uii(=LEN(A»(l)) >NE 

560 c21=l >AA 

570 FOR i»=2 TO nl*l >HB 

580 READ ail I») >RA 

590 IF a»(l»)<>" THEN c21=c21*l >1A 

600 IF LEN(A«(ll)»ia«il THEN laii» >PH 

=LEN(al(lt)) 

610 NEXT II >UD 

620 FOR lt=l TO nl*l >HU 

630 IF a»(ll)=" THEN a»IU)=STRING >NH 

»(iaiil,24?) 

640 IF LEN(A»(U))OHAXI* THEN P(=L >IW 

EN(A»(I1)H1:F0R J1=P1 TO HAXIÏ:A»( 

l«)=A»(l*>*' ":NEXT )1 

650 NEXT >EG 

660 DATA 11,3,3 >BD 

670 DATA Copie disc,Foriatage,Edite >ZJ 

ur,Speeder,, Copier fichier, Effacer, 

Renouer, Cataloguer, Déprotèger, Reçu 

pérer 

680 RETURN >ZK 

690 IF 11=1 THEN GOTO 350 >RH 

700 o«=l >0K 

710 LOCATE K,po(:PRINT CHR»(240HS >KP 
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TBING»<NAXlI.,241MCHfi*(242) 

720 FOS p»y*«l TO y»»n«tl >TA/ 

730 LOCATE il,Pt:PRINT CHR»(245)ta* >BB 

<o»)*CHB»<246) 

7*0 o«=o**l >QC 

750 NEXT p« >ÏF 

760 LOCATE ït,po»*NJ*2:PRINT CHR1I2 >BB 

43HSTBING»(HAm,239)*CHR»(244> 

770 GOSUB 410 >HJ 

780 IKK 1,0 >NA 

790 RETUBN >AB 

600 STOP >FA 

610 'mnnM«fH« >8K 

620 '» FORHATEUR « >TA 

830 'HHIHIIHHI >TB 

640 HEHORY J.8E20:at="216?Be3a638e32 >YA 

306e3a448e060936O023360023773c23360 

22310f23a638e571e000e4121678edf648e 

3a636efe27c83c32638e21678e060911040 

0771910fclBdaÛ052c607":F0E 1=1 TO 1 

39 STEP 2:P0KE l8E21*(i-l)/2,VAL("i 

■tHIB*(A«, 1 . 2> ) sMEKT 

850 1>=0:F=39 >BF 

860 WINDOV 35,52, 15, 16:PAPER 0:CLS: >VH 

PBINT:PRINT" Piste Départ:";d; 

870 PRINT" Plate Arrlv.: 39"; >BK 

660 HINDOU 1,80,1,25 >HV 

690 PLOT 34«B, 112,1: DRAW 34«8, 175: >ÏU 

DRAU 55t8,175:DRAy 55«8, U2.-DRAU 34 
■6,112 

900 HINDOU 1,80,1,25 >NH 

910 PAPES 1:PEN 0:LOCATE 36,16:PRIN >ER 

T'Piste Départ:*;d; 

920 PAPER 0:PEN 1: LOCATE 36,17:PRIN >DF 

T"Piste Arrlv.:"jl; 

930 a»=INKEY»:IF a»=" THEN 930 >IG 

940 IF (a«=CHB»<241> OR a«=" ■) THE >CB 

N 990 

950 IF la«=CHR»1242) OR »•=" "1 AND >HP 
d>0 THEN d-d-1 

960 IF (a»=CH8»(243) OR »*=■ •) AND >ND 
d<f THEN d=d*l 

970 PAPES 1:PEN 0:LOCATE 49,16:PSIN >GW 

Td; 

980 GOTO 930 >AF 

990 PAPES 0:PEN 1:L0CATE 36,16:PBIN >EA 

T'Piste Dépait:";d; 

1000 PAPER 1:PEN 0:LOCATE 36,17:PSI >EU 

NT'Piste Arrlv. :*;f; 

1010 a>=INKEY»; IF a»="" THEN 1010 >YI 

1020 IF (a»=CHR»(2401 OR a*="f> TH >DN 

EN 910 

1030 IF (a»=CHR»(241) OS a«=\|,") TH >EC 

EH 1080 



1040 IF <a»=CH8«(242) OS a»=V) AN >NY 
D f>d THEN f=f-l 

1050 IF <a»=CHB»<243> OR a»="_") AH )PE 
D f<42 THEN f=f*l 

1060 PAPES 1:PEN OîLOCATE 49,17:PSI >HU 
NT t; 

1070 GOTO 1010 >LH 

1060 HINDOU 35,52, 15, 18:PAPE8 0:CLS >DK 
:PEN 1:UIND0U 1,60,1,25: 
1090 PLOT 34>6, 112, 1:DBAU 3418,175 >ZF 
:DRAU S5«8,175:DRAU 55»8,112:DSAU 3 
416,112 

1100 LOCATE 41,16:PRINT"Foriat":L0C >RP 
ATE 36,17:PSINT'(D)ata (C)pi" 
1110 A*=1NKEY»:IF »•=•" THEN 1110 >VZ 
1120 IF a»="D" OS a*="d" THEN D=1:G >GU 
OTO 1160 

1130 IF (a»=CHR»l240) OR a»=* ") TH >DV 
EN 860 " 

1140 IF al="C" OR a«="c" THEN C=1:G >GT 
OTO 1160 

1150 GOTO 1110 >LH 

1160 HINDOU 35,56,15, 16:PAPER 0:CLS >DH 
:PEN kUINDOH 1,60,1,25: / 

1170 PLOT 34I8,112,1:DBAU 3418,175 >UA 
:DRAU 600,175:DSAH 600,U2:DSAH 34< 
6,112 

1160 LOCATE 36,16:PRIHT"lnsérez la >CA 
dlsquette":LOCATE 36,17:PRINT" 
& foriatter." 

1190 UHILE INKEY»<>":UEND:UHILE IN >TE 
KEY»=":UEND 

1200 GOSUB 1300 >VK 

1210 HINDOU 1,40,1,25:PAPER 0:CLS:U >LA 
INDOU 41,65,15,18:PAPER l.'CLS 
1220 HINDOU 1,60,1,25 >PI 

1230 PAPES 0:PEN 1:L0CATE 3,5:PSINT >QV 
•Formatage pistes"idi"à",-f 
1240 IF D=l THEN POIX l8E44,tCl:CAL >RB 
L 18E21:G0T0 150 

1250 IF C=l THEN POKE ME44,M1:CAL >SK 
L 18E21:G0T0 150 

1260 PAPES 1:PEN >LF 

1270 PAPES 1:PEN OiHINDOH 41,80,1,2 >NZ 
5:PAPER 1:CLS:HIND0H 41,80,5,25 
1280 PRINT'ATTENTIOH: la loi 65 >PJ 
-600, titre V, article 47 du 3 lui 
llet 1965, n'autorlseq'une copie de 
sauvegarde réservée à votre usa 
|e personnel." 

1290 FOS T»l TO 2000:NEIT:BETUSN >BJ 
1300 OUT il.FA7EI,l >LD 

1310 FOR la=l TO 999:NEIT >TÏ 
1320 OUT (4FB7F),4 >LL 



1330 OUT <4FB7F),2-PEEK11A700) >I2 

1340 DK=INP(tFB7F) >HN 

1350 OUT (WA7E),0 >LH 

1360 IF (DK AND 32)=0 THEN PAPER 0: >TG 

PEN !:LOCATE l,25:PBINT"Lecteur de 

disquette vide. . .":GOT0 160 

1370 IF dlr=l THEN dir=0:RETURN >AC 

1380 IF (DK AND 64) THEN PAPES 0:PE >BY 

H 1:L0CATE l,25:PSINT'Disquette pro 

têgée...\GOTO 160 

1390 SETUSN >FG 

1400 PAPER 1:PEM 0:LOCATE 50,23:PSI >PZ 

NTMnserez la disquette" 

1410 LOCATE 50,24:PBINT"l Appuyez s >HH 

ur une touche "; 

1420 UHILE INKEY»<>":UEND >VN 
1430 UHILE INKEYi="":UEND >UD 
1440 PAPES 1:PEN 0:LOCATE 50,23:PBI >ZJ 
NT" • 

1450 LOCATE 50,24:PBINT" >BN 

1460 SETURH >FE 

1470 ON c> GOTO 1480,1540,1550,1560 >NF 
, 1570, 1580, 1590, 1600, 1610, 1620, 1630 

1480 FOS Y=25 TO 1 STEP -2 >BG 
1490 HINDOU l,60,y,y:PAPEB 0:CLS >A2 
1500 NEIT >KH 

1510 FOB Y=24 TO 2 STEP -2 >SA 
1520 HINDOU l,60,y,y:PAPES 0:CLS >AT 
1S30 NEIT:CALL >LD 

1540 GOSUB 1260:cH=l:ON ESBOS GOTO >IH 
3080:UINDOH 1.1,1,1:PEN 0:BUN"CDP1E 
US 

1550 GOTO 810 >FF 

1560 ch=2:0N EBSOB GOTO 3080:UIND0U >DY 

1,1,1,1:PEN 0:BUN"EDIT 
1570 ch=3:0N EBSOB GOTO 3080:UIHDOU >HG 

1,1,1,1:PEN 0:BUN'SPEEDES 
1580 ch=4:G0SUB 1260:0N EBROB GOTO >UC 
3060:U1NDOH 1,1,1,1:PEN 0:BUH"cop2 
1590 elfa=l:G0T0 i960 >PN 

1600 reno=l:GOTO 1980 >QH 

1610 cata=l:GOTO 1980 )PH 

1620 depr=l:GOTO 1980 >QA 

1630 recu=l:PuKE U701,229:GOTO 196 >DC 


1640 'procédure depro >TD 

1650 MODE 2:CALL 4BC02 >PL 

1660 dir-l:GOSUB 1300 >PT 

1670 CALL liBB4E >HG 

1660 PEN 1:PAPER >NF 

1690 PBINT'Ne vous fiez pas audl ■ >ÏJ 
essage(s) d'erreur(s)...." 
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170O HEHORY 19FFF >HQ 

1710 RESTORE 1750 >LX 

1720 FOR io=lA0O0 TO &A023:8EAD a»: >CU 

POKE lo,VAL("s"*A»):NFJ(T 

1730 Nl=b»lc,i) >UA 

1740 FOR 1=1 TO LEN(N«):POKE M023* >VC 

i,ASC(niD»(N*,i,l)):NEXT:POKE M001 

,LEN(NI):CALL 4AO00 

17S0 DATA 06,08,21, 24,aO,U,2f,aO,c >QA 

d,77,bc,d0,c5,21,70,01,cd,83,bc,cl, 

09,eb,21,66,ae,06,04,73,23, 72,23, 10 

,fa,c3,7a,bc 

1760 cop=c >B* 

1770 C=0 >VE 

1780 Al=" >CJ 

1790 LOCATE i,y:PRINT" " >BE 

1800 a»=INKEY»:IF A«=" THE» 1BO0 >ZD 

1810 IF ASC(a»)=32 AND C<1 THEN 180 >AB 



1820 IF A»=CHR»(127) AND c>0 THEU G >ÏD 

OSUB 1940:G0T0 1600 

1830 IF al=CH8»(127) THEN 1800 >WL 

1840 IF A»=CHR»<13) THEN GOTO 1900 >ZN 

1850 IF C=12 THEN GOTO 1800 >UE 

1B60 LOCATE «*c,y:PRINT a»i >UH 

1B70 C=C*1 >JF 

1880 IF C=B THEN c=C*l >PQ 

1890 GOTO 1800 >NE 

1900 FOR lo=I TO X*tl:LQCATE lo,y:b >DE 

»=B»*COPYCHR»(IO):NEXT 

1910 IF LEFT»(b»,l>=' " OS LEFTNB» >QZ 

,1)="-" THEN 1800 

1920 dlr=0:GOSUB 1300:ùREN,"0:"*b*, >TR 

•O:"*b»(cop,i> 

1930 GOTO 160 >FF 

1940 C=c-1 >JF 

1950 IF C=B THEN C=C-1 >PQ 

1960 LOCATE i*e,y:PRINT"-" >VN 

1970 RETURN >GA 

1980 i«=10 >JD 

1990 ERASE b$:OEH b»(3, 100) >UB 

2000 W1HD0U II,li«62,2,24:PAPER 0:C >TC 

LS:UINDOY 1,80,1,25 

2010 LOCATE i(.2:PRINT CHRX240HST >DJ 

RING»<62,241)*CHR»<242) 

2020 LOCATE i«*l,3:PRIHT'X lie >TJ 

hiers CATALOGUE 

X" 
2030 FOR Y*=3 TO 24 >LH 

2040 LOCATE lt,y(:PRINT CHRK245) >BB 
2050 LOCATE i»«63,y»iPRINT CHSN246 >DH 
) 

2060 NEH >KK 

2070 LOCATE ii,25:PRINT CHRM243HS >ED 



TRIHG*(62,239)»CHR«(244) 

2080 LOCATE 1,1 >HH 

2090 dlr=l:GOSUB 1300 >PQ 

2100 POKE 4BB5A,*C9:CALL &BC9B.M00 >UV 

0:POKE eeSA,6CF 

2110 nb«=O:T0t«=O >LT 

2120 nl*=0 >GA 

2130 HINDOU I«*2,B0,5,25 >RU 

2140 C=l >UH 

2150 g«=l >AJ 

2160 FOR 144000 TO 44800 STEP 14 >IG 

2170 IF PEEKU)0255 THEN 2290 >«Q 

2180 FOR n«=l TO 8 >LE 

2190 b»(c,q»)=b>(c,q*)*CHR»(PEEK(l* >FE 

Nil) 

2200 NEIT >KF 

2210 b«(c,m)=b*(o,l»)*»." >8T 

2220 FOR E«=0 TO 2 >GD 

2230 b*(o,Q«)=b»(c,0*)«CHR»(PEEK{l* >QÏ 

W«E»> AND 127) 

2240 NETT >KK 

2250 PEINT b»(c,0«);USlNG " Il ko'; >IU 

PEEK(I*12):Qt=8*tl 

2260 Nll=Nl**l;IF nti=2Q THEN C=2:ll >TU 

INDOU 33,80,5,25 

2270 IF nl»=40 THEN c-3:UIND0H 53,8 >GR 

0,5,25 

2280 nb*=nb»*l:T0M=T0t%*PEEK<l*12> >DU 

2290 NEITiUlNDOy 1,80,1,25 >ïl 

2300 LOCATE W^PRlNT'X'jllb* >IP 

2310 LOCATE 60,3:PRINT tôt*;" KoX" >BG 

2320 LOCATE 12,5:1F COPTCHMdO)*' >ED 

' THEN LOCATE 30,10:PRINT"XPas de 

catalo|ue.ï":GOTO 160 

2330 IF Cata=l THEN WHILE 1NKEY»="" >TE 

:UEND:G0T0 160 

2340 X=H*2:Y=5 >CE 

2350 1=1 >VG 

2360 C=l >»B 

2370 GOSUB 2490 >IK 

2380 A>=INKEY» >Vfl 

2390 IF <A»=" " OR A»="Z') AND effa >RL 

=1 THEN GOSUB 2840 

2400 IF (A»=CHR»<13) OR A*='I') AND >ÏD 

recu=l THEN ùREN,"0:"*B»<c,U,bl(c 
,1):ÙUSER,0:GOTO 160 
2410 IF (A»=CHR»(13l OR A»="I") AND >IE 

efla=l THEN GOTO 2860 
2420 IF (A»=CHR»(13) OR A»="IM AND >I0 

reno=l THEN GOTO 1760 
2430 IF (A»=CHR»(13) OR A*="I*) AND >D) 

depr=l THEN GOTO 1640 
2440 IF IA»=CHR»(240) OR »♦=■>) AN >AD 
D V>5 THEN GOSUB 2510:l = l-l:V=y-l:G 



OSUB 2490 

2450 IF (A»=CHR»(241) OR A«='J,') AN >UV 
D T<24 THEN GOTO 2770 

2460 IF <A»=CHR»(243) OR A*=V) AN >TQ 
D C<3 THEN GOTO 2620 

2470 IF <A»=CHR»<242) OR A»="<-«> AN >TN 
D C>1 THEN GOTO 2520 

2480 GOTO 2380 >NE 

2490 LOCATE I,ï:PRINT"ï"tLEFT»(b»(c >HC 
,n,12)*î" 

2500 RETURN >FA 

2510 PAPER 0:PEN 1: LOCATE X,Y:PRINT >HJ 
LEFT»<bNc,l),12):RETURN 

2520 IF C=3 THEN LOCATE 33, y >ïï 

2530 IF C=2 THEN LOCATE 12, y >ÏR 

2540 IF COPÏCHRMtO):* ■ THEN GOTO >EV 
2380 

2550 GOSUB 2510 >IC 

2560 C=C-1 >JE 

2570 IF C=2 THEN 1=1-20 >QQ 

2580 IF C=l THEN 1=1-20 >Qfl 

2590 IF C=2 THEN I=33.-G0SUB 2490 >TY 

2600 IF C=l THEN I=12:G0SUB 2490 >YK 

2610 GOTO 2380 >NK 

2620 IF C=l THEN LOCATE 33,y >VU 

2630 IF C=2 THEN LOCATE 53,y >VY 

2640 IF COPYCHR*(IO)=* ' THEN GOTO >EV 
2380 

2650 GOSUB 2510 >ID 

2660 C=Ctl >JD 

2670 IF C=2 THEN 1=1*20 >QP 

2680 IF C=3 THEN 1=1*20 >QR 

2690 IF C=2 THEN I=33:G0SUB 2490 >YZ 

2700 IF C=3 THEN I=53:G0SUB 2490 >YU 

2710 GOTO 2380 >NA 

2720 ■ >YD 

2730 ' >YE 

2740 ' >YF 

2750 ' >YG 

2760 ' >YH 

2770 LOCATE 1,1*1 >LF 

2780 IF COPYCHRKI0)=" ■ THEN GOTO >EB 
2380 

2790 GOSUB 2510 >IJ 

2800 Y=Y«1 >ND 

2810 1 = 1*1 >KC 

2820 GOSUB 2490 >IK 

2830 GOTO 2380 >ND 

2840 IF effa=l AND LEN(M(c,i))=12 >DG 
THEN LOCATE t-l r y:PIINT a > a b*te,I) a < 
B ;b»<c,i)=b*<c,l)* , < , :GQSUB 2490:RE 
TURN 

2850 IF ef«a=l AND LEN(b»(c,i))=13 >P0 
THEN LOCATE i-l,y:b«(c,i)=LEFT*(M( 
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c,l),12):PRINT ■ •IMc.l)' ":GOSUB 

2490:RETU8N 

2860 HINDOU 1,40,1,24:PAPES O.'CLS >AC 

2870 dlr=0:G0SUB 1300 >PU 

2680 FOE C=i TO 3 >CC 

2890 FOE 1=1 TO nb» >HU 

2900 IF LEN(b»lc,l))=13 THEN b»(c, I >JC 

)=LEFT»(bl(c,l),12):PRINT b»(c, I)* 

est effacé. ':ùEBA,b*(c, I) 

2910 NEIT >LD 

2920 NEIT >LE 

2930 HINDOU 1,60,1,25 >PG 

2940 GOTO 160 >FH 

2950 PAPER 0:PEN 1:UIND0U 1,60,1,25 >CE 

2960 LOCHE 30, tO:PBIKT CHRN240IST >CV 

RING»(14,241>CHR»<242> 

2970 LOCATE 30,11:PRINT CHR»(245>" >GB 

Insérez DISK "CHR»<246> 

2980 LOCATE 30,12:PBINT CHRK243IST >CH 

R1MG«(14,239)CHR»I244) 

2990 UHILE INKEY»=":UEND >VH 

3000 HINDOU 30,40,10,12:PAPES 0:CLS >ZZ 

:UINDOU 41,70,10,12:PAPEB 1:CLS:PAP 

ER 

3010 HINDOU 1,1,1,1:PEN >TP 

3020 ON ERBOR GOTO 3080 >0C 

3030 IF ch=l THEN RUN'COPIEUB >IG 

3040 IF ch=2 THEN RUN'EDIT >UG 

3050 IF ch=3 THEN RUN'SPEEDER >IV 

3060 IF ch=4 THEN BUN'C0P2 >UB 

3070 STOP >U 

3080 IF DERR=146 THEN RESUME 2950 >AU 

3090 RESUHE 160 >AD 

3100 GOTO 160 >EG 



' Ittlllllifflll 

> i < 

' ■ IMAGE DE > 

' I PRESENTAT ION» 

' « • 



iSAVE'SCBEEN • 
H RUN i 

fliiiiaifimn 

90 INK 14,25 

100HODE OtlNK 0,0:BORDER 

110 INK 1,1: INK 2,11:INK 3,2: INK 

26: INK 5,20 

120 I=0:Ï=0:K=50 

130 A=0.516:B=0.98333:C=0.45363 

140 T=TIHE 



>U 
>LB 
>LC 
>LD 
>LE 
>LF 
>LG 
>LH 
>ÏH 
>UU 
4, >LN 

>LE 
>ÏC 
>ÏJ 




150 FOB i(=l TO 642 >U 

160 Z=Ï-SGN(I)«SQR<ABS<B«HC>) >Z2 

170 Y=A-I:X=Z >»E 

160 PLOT K»H320,250-(KiV),INTlRND >GZ 

«5>*1 

190 NEIT >EF 

200 FOR lt=l TO 100:PLOT INTIRNDI64 >TK 

0), INT(8ND«400>, INT(RND«5)*1:NEIT 

210 PEN 15: INK 14,26: INK 15,11 >HE 

220 LOCATE 1,1:PRINT CH8«U64)"BIGH >UÏ 

EAD SOFTHARE' 

230 FOR 1=0 TO 17»32 STEP 4 >TB 

240 FOR ï=4 TO 18 STEP 2 >0Q 

250 IF TEST(I,3B0»Ï)=15 THEN PLOT 4 >PQ 

0«,V«2,15:DRAU 45*1, (Vi2)*S:DRAU 4 

5*I,<V»2.1»5,14 

260 NEIT Y,I >GH 

270 LOCATE 1,1:PRINT ■DISK'tSTRING» >LD 

(16,32) 

260 FOR 1=0 TO 4f32 STEP 4 >RG 

290 FOR T=0 TO 18 STEP 2 >DR 

300 IF TEST(I,380*Ï>=15 THEN PLOT 2 >TU 

50*I,3S0*»«2,14 

310 NEZT.-HEIT >BB 

320 LOCATE 1,1:PR1NT» • >UV 

330 SAÏE"DISK",B,KOOO,t4000 >HD 



ÏHIVflïSlïS 



COPIEUR < 
FICHIER • 



«SAVE"C0P2 ■ 
iimiiHiii 

80 BORDER 0:INK 0,0 
90 CLEAE 



>LA 
>LB 
>LC 
>LD 
>LE 
>LF 
>LG 

>rH 
>DH 



100 FOR 1=42165 TO 42619:BEAD A(:PO >PH 

KE l,A(:NEIT 

110 CALL 42165 MCA 

120 DATA 4c3,457,4a5,4O0,4O0,44e,&4 >UI 

f , 44d, 420, 144, 455, WO, 446, 149, 443, t 

48,449, 445,452,420, 445, 44e, 420,445, 

44e,454,452, 445,445,420,431, 420 

130 DATA 44e,44f,44d,420,444,455,42 >HD 

0,446,449,443,448,449,445,452,420,4 

45,44e, 420,453,441, 452,454, 449,445, 

420,43f,420 

140 DATA 441,455,454,452,445,420,44 )ZU 

6,449,443,448,449,445,452,420,420,4 

4f,42f, 44e, 429,420,431, 420 



150 DATA 400,400,400,400,400,400,40 >HÏ 

0,400,400,400,400,400,400,400,400,4 

00,400,400,400,400,400,400,400,400, 

400,400,400,400,400,400,400,400,400 

,400 

160 DATA 400,400,400,400,400,400,40 >EZ 

0,400,400,400,400,400,400,400,400,4 

00,400,400,400,400,400,400,400,408, 

400,400,400 

170 DATA 400,400,400,400,400,400,40 >KH 

0,400,400,400,400,400,400,400,400,4 

00,400,400,400,400 

180 DATA 43e,402,4cd,40e,4bc,43e,40 >BK 

0,406,400,40e, 400,4cd,432,4bc,43e,4 

01, 406,412, 448,4cd,432,4bc 

190 DATA 4cd,54,4bb,4cd,472,4a6,421 >HV 

,4ba,4a4,4cd,448,4a6,406,4U, 436,40 

0,423,410,4fb,421,406,4a5,40E, 400,4 

3a.4b8.la4 

200 DATA 4cd,455,4a6,421,416,4aS,47 >CK 

1,441, 421, 406,4a5,4U, 472, 401, 4cd,4 

77,4bc,4da,4a2,4aS,4cd,446,4a6,4c3, 

470, 4a5 

210 DATA 432,426,4a5,4ed, 453,429,4a >ZC 

5,4ed,443,42d,4a5,4U,42f,4a5,401,4 

18,400,409,401, 428, 400,4ed,4b0,42a, 

429,4a5,4cd,483,4bc 

220 DATA 422,42b,4a5,4cd,47a,4bc,4c >TF 

d,472,4a6,421,4d5,4a4,4cd,446,4a6,4 

U,417,4a5,401,411,400,4ed,4b0,421 l 

417,4a5,40e,400 

230 DATA 43a,4b9,4a4,4cd,455,4a6,47 >AT 

9,4fe,400,4ca,4eb,4a5,42l,427,4a5,4 

71,421,427,4a5,446,421,417,4a5,4U, 

472,401,4cd,48c.4bc 

240 DATA 4da,401,4a6,4cd,446,4a6,4c >AZ 

3,4c5,4a5,401,418,4O0,4O9,4eb,421,4 

2f,4a5,401,428,400,4ed,4b0,4ed,44b, 

42b,4a5,42a,429,4a5 

250 DATA 4ed,45b,42d,4a5,43a,428,4a >UZ 

S,4cb,4B7,4cd.499,4bc,4cd,4Bf,4bc,4 

Cd,472,4a6,421,4f0,4a4,406,416,47e, 

4cd,45a,4bb,423 

260 DATA 410,4f9,4cd,406,4bb,4cd,45 >BH 

a,4bb,4f6,420,4fe,46f,4ca,470,4a5,4 

(e,46e,4c2,424,4a6,4c7,437,4c9,406, 

41b,47e,4od,45a,4bb 

270 DATA 423,410,4(9,421, 406,4a5, 4c >TE 

9,4fe,400,4ca,4Sf,4a6,406,40c,4c3,4 

61,4a6,406,410, 4cd,406,4bb,4te,40d, 

4ca,471,4a6,40c 

280 DATA 4cd,45a,4bb,477, 423,410,41 >DC 

0,4c9,4cd,478,4bb,426,401,42c,4cd,4 

75,4bb,4c9 
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COPIEUR 


10 ' iHiiiimiiH 


>LA 


20 ' » « 


>LB 


30 ' > COPIEUB > 


>LC 


40 ' • DISQUETTE < 


>L0 


50 ' « » 


)LE 


60 ' «SAVE"C0P1EUB« 


>LF 


70 ' llilXItliliiKl 


>LG 


80 CLEAB 


>DG 


90 CAIX 4BB4E 


>HA 


100 FOI T=42000 T0 42057 


>0V 


110 SEAD a»:P0KE t,VAL<"«"tA») 


>IP 


120 NEIT 


>DJ 


130 ON BBEAK G0SUB 630 


>QK 


140 ON EBBOB GOTO 630 


>PK 



150 HINDOU 1,40,1,25:PAPEB 0:CLS:UI >KT 
NDOU 1,80,1,25:PAPEB 1:PEN 0:L0CATE 
45,15:PBINT"Foriat (S)ysteie (D)at 
a ?• 

160 F»=INKEY»:IF F»=" THEN 160 >IG 
170 FMUPPFJWF») >LV 

160 IF F»="S" THEN f=6S:G0T0 210 >ÏF 
190 IF F»="D" THEN f=193:G0T0 210 >TE 
200 GOTO 160 >TF 

210 PAPEB 0:PEN 1:L0CATE 4S,15:PBIN >ZG 
T STBING»(25,143I;: 

220 PAPEB 1:PEN 0:L0CATE 45,15:PIIN )ZH 
T'Introduisez la disquette source": 
LOCATE 45,16:PBINT"et appuyez sur u 
ne touche..." 

230 WHILE 1NKEY»=":UEND >UÏ 
240 UIHDOy 45,60, 15, 16:PAPEB l:CLS: >LK 
HINDOU 1,60,1,25:PAPEB 0:PEN 1 
250 GOSUB 640 >HG 

260 TAHP=44B8:CPT=0 >PU 

270 LOCATE 2,6 >QB 

280 FOB PT=0 TO 39 >LP 

290 FOB SC=0 TO S >FG 

300 IF CPT=0 THEN 320 >NC 

310 IF CPT HOD 72=0 THEN GOSUB 390 >ZT 
320 TAHP=TAHP+512:CPT=CPT*1 >KV 
330 LOCATE 2,4:PBINT'Lecture... >GA 

U 

340 LOCATE 2,6*sc:PBlNT"Plste "pt". >I2 

..Secteur"sc 

350 CALL 42OO0,pt,sc*f,taip >UN 

360 NEIT se >TF 

370 FOB ï»=15 TO 6 STEP -i:LOCATE 2 >FA 

,y»:PBlNT SPACE»I25):NEIT 

380 NFJtT pt >AB 

390 PAPEB 1:PEN 0:LOCATE 45,15:PBIN >LV 

T'Introduisez la disquette destinât 



u_u 



ionVLOCATE 45,16:PBINT'et appuyez 
sur une touche. . . " 

400 UHILE INKEY»=":UEND >UI 
410 UINDOU 45,B0,15,16:PAPEB 1:CLS: >U 
HINDOU 1,80,1.25:PAPEB 0:PEN 1 
420 GOSUB 640 >HF 

430 TAHP=448B >PB 

440 FOB PT1=PT-B TO PT-1 >BC 
450 FOB SC1=0 TO 8 >LT 

460 TANP=TAnT*512 >HC 

470 LOCATE 2,4:PBlNT"Ecriture..." >Eq 
460 LOCATE 2,6+scl:PBINT"Piste "ptl >AÏ 
"...Secteur"scl 

490 CALL 42005, ptl, scltf.taip >XJ 
500 NEIT sel >EC 

510 FOB «=15 TO 6 STEP -1:L0CATE 2 >EE 
,y«:PBIHT SPACE*(25):NEÏT 
520 NEÏT ptl >FJ 

530 taip=44BB >PC 

540 IF cpt=360 THEN LOCATE 2,17:Pfil >AJ 
NT'Operations Teriinees...":WHILE I 
NKEr«<>":UEND:lfHILE INKET«=":UEND 
:GOTO 130 

550 PAPEB 1;PEN 0:LOCATE 45,15:PBIN >ZP 
T'Introduisez la disquette source": 
LOCATE 45,16:PBINT'et appuyez sur u 
ne touche..." 

560 UHILE IHKEÏ*="":UEND >UE 
570 UINDOU 45,80, 15,16:PAPEB 1:CLS: >LB 
UINDOU 1,60,1, 25:PAPEB 0:PEN 1 
580 GOSUB 640 >JC 

590 BETUBN >ZK 

600 DATA 3E,66,C3,17,A4,3E,4E,32,3F >KJ 
,A4,DD,6E,00,DD,66,01,DD,4E,02 
610 DATA ED,43,48,A4,DD,56,04,1E,00 >KP 
,ED,53,46,A4,OE,07,CD,OF,B9,C5 
620 DATA ED,4B,48,«4,ED,5B,46,A4,CD >PP 
,66,C6,C1, CD, 1B,B9,C9,00,00, 00,00 
630 CALL >GH 

640 OUT l*FA7E),l >U) 

650 FOB 1=1 TO 999:NEIT >BU 
660 OUT (IFB7F),4 >LÏ 

670 OUT (4FB7F),2-PEEK(sA700) >UG 
680 DK=INP(4FB7F) >NZ 

690 OUT (liFA7EI,0 >LV 

700 IF (DK AND 321=0 THEN PAPEB 0:P >TJ 
EN 1: LOCATE l,10:PBINT"Lecteur de d 
isquette vide...":UHILE INKEÏ»<>": 
UEND:UH)LE INKEï$=":UEND:GOTO 150 
710 IF (DK AND 64) THEN PAPEB 0:PEN >CV 
1: LOCATE l,10:PBINT"Disquette prot 
egee...":HHILE INKEY»<>":UEND:UHIL 
E INKEÏ»="":UEND:GOTO 150 
720 BETUBN >ZE 



10 ' HHtiiiiiiiii >LA 

20 ' « » )LB 

30 ' iHINI-EDITEUBi >LC 

40 ' • » >LD 

50 ' «SAVE"ED1T « >LE 

60 ' iifxi«ifx»*i«i >LF 

70 CLEAB >DF 

80 OIH a»(15,3> >NB 

90 ON BBEAK GOSUB 620 >PB 

100 HODE 2:INK 0,26:INK 1,0:B0BDEB >HG 

13:lig=100 

110 FOB 1=19000 TO 19073 STEP 8 >UF 

120 FOB J=0 TO 7:BEAD z$ >QU 

130 Z=ÏAL("t"*zl):c=C*z:POKE i«J,z >CB 

140 NEIT:BEAD c«:IF cOVAL("a"«C«) >0F 

THEN PBINT'Erreur ligne " ; 1 i g 

150 C=0:lig=lig*10:NEXT:CALL WOOO >CZ 

160 DATA 01, 28,90,21, 24,90,cd,dl, 32 >BD 

c 

170 DATA bc,21,3f,90,cd,d4,hc,22,42 )CH 

b 

160 DATA 40,90,79,32,42,90,21,43,2b >BK 

1 

190 DATA 90,cd,d4,bc,22,44,90,79,45 >CE 

c 

200 DATA 32,46,90,c9,00,00,00,00,ld >BU 

1 

210 DATA 30,90,c3,47,90,c3,5d,90,40 >BJ 

a 

220 DATA 4c, 4f, 41, 44, 53, 45, c3, 53, 2c >BG 

e 

230 DATA 41,56,45,53,45,c3,00,84,2b >BT 

b 

240 DATA 0O,OO,OO,B5,OO,OO,0O,fe,16 >BU 

3 

250 DATA 03, 28, 05, 3e, 07, c3, 5a, bb, 24 >CF 

d 

260 DATA eb,dd,56,04,dd,4e,02,le,36 >CU 

d 

270 DATA 00,df,40,90,c9,fe,03.28,3a >CH 

1 

280 DATA 05,3e,07,c3,5a,bb,eb,dd,3e >CÏ . 

a ' 

290 DATA 56,04,dd,4e,02,le,00,df,28 >CQ 

4 

300 DATA 44,90,c9,0O.O0,O0,O0,O0,19 >BÏ 

d 

310 HEHOBT l3FFF:p=0:S=lcCl >VP 

320ùLOADSEC,p,s,MOOO:C=i >VZ 

330 HODE 2:G0SUB 600:L0CATE 1,2 >TV 

340 PLOT 1,90,1:DBAU 1,360:DBAU 630 >DF 

,360:DBAU 630,90:DBAU 1,90:PL0T 5,8 
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8:DBAU 632,B6:DBAU 632,358 

350 PLOT 100,365:08*11 100, 390 : D8AH >HC 

540,390:DBAU S40,36B:0BAU 100,365 

360 P81HT:PBINT >"' 

370 ON BREAK GOSUB 620 >QQ 

360 FOR i=a4000«D TO 140FF»D STEP 1 >AU 

6 

390 PSINT' "iHEI»(l,4);" : ': >IF 

400 FOR )=0 TO 15:PB1NT HEMIPEEKU >VÏ 

*J),2);" "iiNEIT 

410 PBIHT" : *;:FOB j=0 TO 15:z=P >Klt 

EK(1«J) 

420 IF z<32 THEN PRINT".'; ELSE PBI >NU 

NT CKBJ(z); 

430 NEIT:PR1NT:NEXT >W 

440 GÛTÛ 740 > 2f 

450 A»=INKEïl:a»=UPPES«lA»> >UI 

460 IF a»=" ' THE» d=ABS(d-256> :GOT >FT 

330 

470 ON BREAK GOSUB 620 >QR 

4B0 LOCATE 10,25 >EB 

490 IF a»="S" THEN INPUT'Secteur : >W 

i",s»:S=VAL("i"*S»):GOSUB 600 

500 IF a»="P' THEN INPUT'Piste : ■, >NR 

p:IF p>43 THEN 460 ELSE GOSUB 600 

510 IF a»="U" THEN ùL0ADSEC,p,s,t50 >ÏL 

00:ss=s:sp=p:w=l:ùSAVESEC,p,s,MOOO 

520 IF a»='L' THEN ùL0ADSEC,p,s,li40 >NK 

00:GOTO 330 

530 IF a»="E' THEN END >P* 

540 IF a»="U" AND U=l THErkùSAVESEC >ÏG 

,sp,ss,lc5000:a=0 

550 IF a«<>'V" THEN 450 >PQ 

560 LOCATE 10,25: lNPUT'Adresse : 4" >RG 

,al:A=VAL<"t"»A»);lF a=0 THEN 560 

570 LOCATE 10,25:PR1NT SPACE»(50I; >BB 

5B0 LOCATE 10,25: INPUT'Va leur : lc\ >J0 

»*:»=W*L("fc**W»lsP«CE a,v 

590 GOTO 330 >M 

600 PAPER 0:PEN 1:UIND0U 1,80,1,25 >BR 

610 LOCATE 20,2:PRlNT , Secteur : t'i >HA 

HEX*(9,2); a Piste : "ipi" Page 

: ";-ll(D=256):L0CATE 1,25:PR1NT SP 

ACE«(70)::RETUBN 

620 BUN'dlsc >*E 

630 GOSUB lUOMNPUT'Plste^.pMF p >2E 

>43 THEN 1270:G0T0 740 ELSE GOSUB 6 

00:GOSUB 1270:G0T0 740 

640 GOSUB lUO-.lNPUT'Secteur^Vs»: >HV 

S=»AL("&"tS»):GOSUB 600:GOSUB 1270: 

GOTO 740 

650 GOSUB 1140: INPUT"Adresse:s",a« >HL 

tMMLCP+ttl-itf a=0 THEN 650 

fifiO ' >TC 



670 INPUT"Valeur:l",v»:ï=VAL("l"*V* >RT 

):P0KE a,v 

680 GOTO 330 >ZG 

690 IF U=l THEN ùSAVESEC,sp,ss,l500 >JF 

0:w=0:GOTO 330 ELSE GOTO 740 

700 ùL0ADSEC,p,s,64OO0:GOT0 330 >ZE 

710 ùL0ADSEC,p,s,l5O00:ss=s:sp=p:w= >0.V 

l:ùSAVESEC,p,s,MOO0:G0TO 330 

720 C=2:G0T0 740 >FG 

730 d=ABS(d-256):G0T0 330 >TZ 

740 • >TB 

750 ' >TC 

760 HINDOU 1,80,21,25 >PK 

770 IF C=2 THEN RESTORE 1100:le=80 >BC 

780 IF C=l THEN RESTORE U20:le=80 >BE 

790 io=2 >ZK 

800 fb»=CHB«(241):fh*=CHBJ(240):ok« >IA 

=■ ":ret»=CHR»<13> 

810 nor»=CHR»(15HCHR»(0HCHB«<14B >JA 

CHBtll) 

820 inv>=CHB*<15)*CHR»<l>*CKR«(14H >JZ 

CHBs(O) 

830 do«=Cfl"R»(7):soh»=CH8»<l) >¥B 

840 ' >TC 

850 READ n >LB 

860 FOR 1=0 TO n >TK 

670 ÎÎEAD «11) >nC 

880 cc«=cc«*LEFT»lH»<l),l> >UE 

690 lt=HAX(LEN(H»(I)),lt) >UI 

900 NEIT 1 >«H 

910 ig=(LE-lt)/2:»d=ig»lt >ÏE 

920 ch=l >K 

930 PAPER 0:PEN 1 >L9 

940 FOR 1=0 TO n >ÏJ 

950 LOCATE l|-l, l«l«l:PBINT "/I";H» >ÏF 

(DiTABIHdli'Xc": 

960 NEIT >FA 

970 LOCATE ig,ch»lU:PRINT inv«:l»< >TU 

CH);TAB(MD>;nor»; 

980 rt=INKEV»:IF r»=" THEN 980 >IE 

990 LOCATE ij,ch«l*l:PBIHT ■)(CH);T >LB 

AB(KD); 

1000 IF (R*=fb» OR t*="i') THEN cH= >ZT 

CCH+1) KOD (NHtiGOTO 970 

1010 IF (R»=fM OB R»=" f ") THEN cH >AB 

=(CH«n) HOD (NtlkGOTO 970 

1020 IF (t»=ret« OR r»=" ■ OR t»='I >U 

") THEN 1050 

1030 I=INSTB(CC»,UPPERI(RI)):IF i=0 >HJ 
THEN 970 

1040 cH=M >VA 

1050 IF (ch=0 AND c=l) THEN 740 >UT 

1060 IF (ch=0 AND 0=2) THEN C=1:G0T >EH 

740 



1070 PAPES 0:PEN 1 


>LE 


1080 IF C=l THEN ON ch GOTO 700,710 >HJ 


,720,730 




1090 IF C=2 THEN ON ch GOTO 630,640 >HV 


,650,690 




1100 DATA 4 


>NK 


1110 DATA Anmilation.Piste.Secteur, 


>DB 


Hodlfication.Undo 




1120 DATA 4 


>NB 


1130 DATA Annulation, Charger, Ecrire 


>KH 


Codifier, Page suivante 




1140 WINDOV 1,80,1,25 


>PÏ 


1150 T=33:tl=10 


>ZA 


1160 FOR B*l TO 15 


>LH 


1170 FOR y»=l TO 3 


>U 


1180 LOCATE i*»t,y«»tl: 


>RH 


1190 a«(Il,V()=C0PVCHB«(IO) 


>ÏE 


1200 IF it=15 AND yl=l THEN LOCATE 


>HK 


1H,1H1:PRINT CHR«(150)STRING«(13, 




1541CHRK156); 




1210 IF i»=15 AND yl=2 THEN LOCATE 


>U 


l»t,2Ul!PRINT CHR*(149>STR1NG»<13, 




32)CHB»(149>; 




1220 IF l<=15 AND y*=3 THEN LOCATE 


>HÏ 


lU,3ttl:PRINT CHR»(147)STRIHG»<13, 




1541CHRX153); 




1230 NEIT 


>KH 


1240 NEIT 


>KJ 


1250 UINDOU t*2,T*15-l,tl*2,tH2 


>ZY 


1260 BETURN 


>FC 


1270 UINDOU l,80,l,25:T=33:tl=10 


>ZH 


1280 FOR H=l TO 15 


>LL 


1290 FOB v«=l TO 3 


>LH 


1300 LOCATE i»it,y«*tl:PRINT M(ri, 


>GP 


y«>; 




1310 NEIT:NEIT:BETUBN 


>TH 




SPEEDER 




10 'iSHiiïïiïïïiï 


>LA 


20 '• » 


>LB 


30 '«VitesseM30«« 


>LC 


40 'i » 


)LD 


50 '«SAVE"SPEEDER« 


>LE 


6 


} 'iimiiiiiiifii 


>LF 



70 FOB 141000 TO M012:BEAD a:POKE >LN 

I,a:NEIT 
80 CALL UOOOiCALL IBBBA:CALL IBC02 >YP 
:H0DE 1:PEN 1:PAPER 
90 LOCATE U^BINT-Speeder^*':? >RT 
RINT:NEU 

100 DATA 33,10,16,223,7,16,201,13,1 >CN 
98,7,35,0,200,0,1,1,10,0,3 
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Anti 

ERREURS 



Grégory NOE 



Valable pour CPC 464, 
CPC 664, CPC 6128 



Il est difficile de taper un programme 
d'une revue sans commettre d'er- 
reurs ! Quand les erreurs sont signalées 
(Syntax error in, . , , Lines does not exist 
in...)- la correction est facile puisque 
la ligne est indiquée, mais lorsqu'au 
"point de vue" du CPC, le programme 
est correct, il peut en être tout autre- 
ment pour le lecteur. 
Si le fonctionnement du programme 
ne correspond pas vraiment au pro- 
gramme original, alors II est impossible 
de retrouver l'erreur commise, à moins 
de comparer les lignes de votre pro- 
gramme avec celles du journal, mais 
c'est très long et on risque de passer 
sur une erreur sans la voir. 
C'est pourquoi ce programme a été 
créé ; Il est à utiliser si vous ne retrouvez 
pas vos erreurs. 

La frappe d'un programme de votre 
journal favori (CPC) terminée, vous fai- 
tes "RUN" et là, vous corrigez toutes 
les erreurs signalées par le CPC en vous 
référant au journal pour comparer. Si 
malgré cela, il ne tourne toujours pas, 
suivez cette procédure : 

- sauvez votre programme en ASCII 
grâce à l'instruction ; Save "nom prog", 
A. 

Puis, si vous êtes sur K7, rembobinez 
la bande jusqu'au début du fichier ; 

- chargez Anti-Erreurs ; 






SUR MINITEL 


pvr* * 


p, 36 15 




<~> Code MHZ 




*~\ ^ [ IEBM 






w$$m^* 


H* 









- entrez le nom de votre programme 
et insérez le support où II se trouve (K7 
ou disquette). 

Après quelques secondes, les numéros 
de ligne vont défiler. Vous remarque- 
rez qu'à chaque ligne correspond un 
code de 2 lettres sous cette forme : 
>XX ; c'est le code qui va vous permet- 
tre de savoir d'où proviennent les er- 
reurs. Pour cela. Il faut que vous com- 
pariez les codes du Journal à ceux de 
l'écran. SI un code diffère, notez sur 
papier le numéro de ligne qui corres- 
pond à ce code. Continuez ainsi jus- 
qu'à la fin du listage. Le défilement 
terminé, recherchez votre programme 
et corrigez les lignes que vous avez 
notées en comparant avec le Journal. 



Faites 'RUN" et, 6 miracle I . ça marche. 
Attention, lors de la frappe du pro- 
gramme à traiter, n'omettez aucun 
caractère car Anti-Erreurs les prend 
en compte et bien sûr, ne tapez pas 
les codes de contrôle. 
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<tllllllllll<l>t<lllltllllll> 


>LA 


20 ' 


1 1 


>LB 


30 


• ANTI - EBREUDS l 


>LC 


40 ' 


1 I 


>U> 


50 ' 


» VERSION 2.0 > 


>LE 


60 ' 


t | 


>LF 


70 ' 


llf|l|iti|i|i|>|«|>|l|<|i|i|l 


>LG 


80 ' 




>LH 


90 ' 


(cl CPC t G. NOE 1987 


>U 


100 


' 


>8B 


110 


■ 


>RC 
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120 ' »»»>»»»»»»»»»» >BD 

130 '< INITIALISATION > >RE 

140 ' <««««««««««««« >BF 

150 ' >RG 

160 ON E8R0R GOTO 1250 >Q0 

170 «ODE 2 >HH 

180 DIM G*(23) >GD 

190 FOR 1=0 TO 22:READ G»:G«U)=G«: >FR 

NEH 

200 'ATTENTION U LIGNE DE DATA Cl- >RC 

DESSOUS NE CONTIENT PAS TOUTES LES 

LETTRES DE L'ALPHABET !!! 

210 DATA A,B,C,D,E,F,G,H,J,K,L,H,N, >AD 

P,g,R,T,U,V,«,X,T,Z 

220 ' ANTI-BUG FICHIER >RE 

230 IF PEEK(HIHEH«1>=255 THEN 280 >ZD 

240 OPENOUT "CPC >NA 

250 NENORV H1HEH-2 >NX 

280 CLOSEOUT >RJ 

270 POKE HIMEHtl,255 >PP 

280 DEFINT B-Z >WH 

290 ' >TB 

300 BORDER 6:1NK 0,1: INK 1.16:PEN 1 >JN 

:PAPERO 

310 HOVE 0, 16:DRAW G50, 16 >TK 

320 PRINT TAB<27) "A N T 1 - E R R >GU 

EURS •iCHR»(24) /Version 2.0" 

;CHR»(24) 

330 HOVE 0,385:DRAU 650,385 >UJ 

340 LOCATE 24,25:PRINT"CPC REVUE DE >EV 

S STANDARDS AMSTRAD" 

350 HINDOU 1,80,3,23 >NL 

360 H*="Reaiise par Gregory NOE* >HJ 

370 F»=" >IA 

380 FOR 1=1 TD LFJt(H«) >PU 

390 F»=F»»tllD»(M«, 1,1) >PL 

400 LOCATE 70-l,5:PRINT F» >UL 

410 FOR T=l TO 100 >LQ 

420 NEÏT T, I >EF 

430 ' >RH 

440 ' mifii«m!ii«fi!fitt!imiH«i >RJ 

mi 

450 ' >8K 

460 LOCATE 2,1:PRINT"ENTREZ LE NOH >H 

DU FICHIER : '; 

470 INPUT ",NF» >FD 

480 IF NF»=" THEN PRINT CHR*(7):G0 >GR 

TO 460 

490 LOCATE 2.3:PRINT , IHPRIHANTE OU >VR 

ECRAN (l/E)?" 

500 E*="sUHiLE S*=":S$=iiFPEM!iKK >HC 

EÏ»):UEND 

510 IF R*='l" THEN CA=B:PR1NT"BRANC >ID 



HEZ-LA..." ELSE 540 

520 PRINTI8,CHR$(27)i"!"iCHR»(20) >AR 

530 GOTO 560 >ZF 

540 IF R«="E" THEN CA=0:GOTO 560 >TQ 

550 GOTO 500 >ZB 

560 CLSiLOCATE 2,3:PR1NT'TANT QUE L >QR 

E LISTAGE N'EST PAS TERMINE" 

570 LOCATE 2,5:PRINT'NE PAS ARRETER >JU 

LE MAGNETOPHONE OU NE* 

580 LOCATE 2,7:PRINT'PAS SORTIR LA >TL 
DISQUETTE' 

590 LOCATE 2,10:PBINT"PIESSEZ UNE T >HH 
OUCHE POUR U LECTURE' 

600 CALL 4BB05 >LH 

610 ' >RH 

620 ' ««<««««««««« >RJ 

630 '< TRAITEMENT DU FICHIER > >RK 

640 ' >»»»»»»»»»»» >TA 

650 ' >TB 

660 OPENIN "!"tNF> >LF 

670 CLS:PRINT"TRAITFJENT EN COURS.. >JR 

n 

680 IF LEN(AI)=2S5 THEN A*=":LINE >ÏU 
INPUTI9,B«:G0T0 1160 

690 L1NE INPUTI9,B»:A»=B* >UE 

700 IF CA<>8 THEN GOSUB 1310 >VF 

710 IF INKEÏ(66)=0 THEN STOP >W 

720 ' >RK 
730 ' CALCUL DE U CLE DE CONTRO >TA 
LE 

740 ' >TB 

750 A=0:FLG=0 >HB 

760 FOR 1=1 TO LEN(Ai) >PH 

770 L»=M!D»(AI,1,1) >MU 
780 IF L»=CHM(34) AND FLG=1 THEN F >PC 
LG=0:GOTO 840 

790 IF L»=CHR»(34) AND FLG=0 THEN F >PD 
LG=1:G0T0 640 

800 IF L»=CHR»(32) AND FLGOl THEN >CX 
850 

810 IF LI=CHR*(39) AND FLG=0 THEN 8 >CA 
60 

820 IF FLG=l THEN 840 >ND 

630 L*=UPPER»(L») >HC 

040 A=AtASC(L*)*l >LU 

850 NEÏT I >PB 

860 ' >TE 

870 CH»=STR»(A) >CC 

880 CH*=RIGHT»<CH«,LEN<CM)-1) >ÏC 

890 L-LEN(CH«):L2=LEN(CH»)/2 >ÏA 

900 A=VAL(LEFT«(CH*,L2>) >TY 

910 C=INT(A/23) >AH 

920 P=A-(C«23) >U 



930 C*=G»(P) 


>IC 


940 A=VAL<RIGHT»(CH*,L-L2)> 


>WH 


950 C=INT(A/23):P=A-(W23) 


>UT 


960 C*=C»*G*(P) 


>TD 


970 ' 


>TG 


980 FOR 1=1 TO 6 


>«K 


990 L*=HID«(A»,I,1) 


>MÏ 



1000 IF L»<*0' OR L«>"9' THEN 1030 >IJ 
1010 LI»=L1**L* >IF 

1020 NEÏT >(tE 

1030 VH«="":FOR 1=1 TO LEN(A*):1F A >FJC 
SC(MID»(A»,1,1))<32 THEN VM♦=VM»t , 
' ELSE VH«=VH*«HID«(At,I,l) 
1040 NEÏT l:B*=VHt >HV 

1050 ' >U 

1060 IF CAOO THEN 1070 aSE 1090 >YT 
1070 PRINT L1«|TAB(10) ">"iC* >WZ 
1080 LI«=":GOTO 1160 >ND 

1090 Ll»=":PBINTICA,LEFM(B*,55)jT >QH 
AB(57) '>';C« 

1100 IF LEN(B»)<55 THEN 1160 MIT 
1110 FG=1 >CG 

1120 Bt=HlD«(B»,56,LEN(B*)) >UB 
1130 PRINTtCA,LEFT*(B».55> >VU 
1140 IF FG=1 AND CA<)8 THEN FG=0:GO >VB 
5UB 1310:G0T0 1150 

1150 GOTO 1100 >LG 

1160 IF E0F=-1 THEN CLOSEIN ELSE GO >HD 
TO 630 

1170 IF CA=0 THEN CALL IBB03:PR!NT >RJ 
TABI50) CHR»(24);"UNE TOUCHE.. .";CH 
R$(24):CALL IBB05 

1180 OS:PRlNT'HAINTENANT RECHARGEZj > JC 
";NF»i" ET CORRIGEZ LES LIGNES QUE* 
VOUS AVEZ NOTEES..' 

1190 END >ÏK 

1200 ' >IF 

1210 ' ««««««««<«««« >IG 
1220 '< TRAITEMENTS DES ERREURS > >IH 
| 1230 ' <«««««««««««« >t) 
1240 ' >K 

1250 IF ERR=25 THEN aS: PSI NT CHR*( >TC 
7)iCHR«(24);'FICHIER NON ASCII ";CHR 
«(24):END ELSE CONT 

1260 ' >ÏB 

1270 ' <«««««««««««« >ÏC 
1280 '< AHENTE TOUCHE... > >TD 
1290 ' «««««««<««««« >TE 
1300 ' >IG 

1310 C0H=C0M*1: IF C0M>19 THEN CALL >AF 
iBB03:PRIHT TABI50) 'UNE TOUCHE...' 
:CALL dBB05:CLS:C0H=l 
1320 RETURN >EK 
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EDITIONS SORACOM 



SORACOM OUVRE SON SERVICE LECTEUR VPC 



Afin de satisfaire plus directement ses lecteurs,SORACOM ouvre son propre service de vente par correspondance. 



( CATALOGUE ) 





COMPILATIONS CPC 

Vous recherchez les anciens numéros de CPC ? 

Vous souhaitez connaître le mode d'emploi de cer- 
tains logiciels du téléchargement ? 
Alors voici les compilations des numéros 1 à 4 et 
5 à 8 de CPC. 



COMPIL 
5à8 



BONDE 

COMMANDE 

PAGE 38 




80 F 



80 F 



HAMSTERS EN FOLIE 


GENERATION 5 



A PARTIR DE 10 ANS: 

Hamsrers en Folie est une simulation économique et 

humoristique qui vous entraîne dans les mystères de la 

gestion d'un élevage de hamsters. 

A vous d'accoupler vos animaux, de vendre des 

hamsters, d'acheter de la nourriture, des cages, des 

magasins, de payer vos loyers et de faire face à toutes 

(es dépenses... 

Deux niveaux de difficulté. 

Sauvegarde possible du jeu en cours. 

Disponible sur disquette 3" pour CPC 464, 664 et 
6 128 au prix de: 225 F. 
Réf. : G5 007 CPC 




POUR FAIRE RIMER 



EDUCATION ET RECREATION, 



MULTICOURS UN CHOIX DE 3 EDUCATIFS + 1 JEU 



MULTICOURS @ê 



Français : amélioration dp la vitesse de lecture et de la compréhension du 

traite amour d'exercices vané& et amusants. 

Sciences naturelles : une initiation à la démarche scientifique et aux lois 

biologiques du monde vivant abordée avec des mots simples. 

Géographie : découverte de la variété des milieux naturels et initiation à 

l'interprétation de cartes, graphiques et autres données climatiques. 

Jeu : un jeu divertissant à découvrir. 

Réf. . GU 557064 



MULTICOURS 




Français : test de perfc 
lecture suivie, qualité de compréhen- 
sion, appréciation du sens et du style 
grâce h une pédagogie active. 
Sciences naturelles : une initiation 
à la biologie humaine apprenant à 
observer et à interpréter les compor- 
tements de notre corps. 

Géographie : analyse de cartes et interprétation de diverses données statis- 
tiques pour une étude de la France de 1989 : régions, villes, institutions, vie 
économique industrielle. 
jeu : 1 jeu divertissant à découvrir. ■^■^■^■^■^■^■m 

Réf. : GU 5571 24 WIMWMM 



MULTICOURS m 



Français : maîtrise de la lecture avec 
le support d'un texle riche et une va- 
riété d'exercices de compréhension 
d'analyse et de logique. 
Sciences naturelles : découverte 
de la Terre et de son histoire à tra- 
vers les grands phénomènes géolo- 
giques abordés grâce à des textes de connaissance, des a 
Géographie : tout sur l'Europe, ses états, ses institutions, ses réussites, ses 

alliances : le mode d'emploi pour 1992. 

Jeu : 1 jeu divertissant à découvrir. Réf. .' GU 5571 04 g 




m-mn:Qijï . 



Français : perfectionnement de la 
lecture regroupant lecture et recher- 
che, anticipation mais aussi interpré- 

Scîences naturelles : initiation à la 
biologie animale et végétale à travers 
l'alimentation, le système de respira- 
tion, le mode de reproduction ou de locomotion. 

Géographie : Voyage sur 2 continents proposant une découverte du quoti- 
dien, des forces et faiblesses de l'Amérique latine et de l'Afrique^^^^^^^ 
Jeu :1 jeu divertissant à découvrir. Réf. : GU 557084 M l*~f frl J 



DES IDEES DE CADEAUX POU R NQËL !! 

<s$ <3<s ffamg<Bir s<§s <âas<pi<âttïfc®s 
Offre valable dans la limite du stock disponible 



OFFRE EXCEPTIONNELLE 



I SUPERBE ih®(033© 83ain803(3©8i?I 







Lot moniteur + clavier 



• Prix habituel 



Prix habituel - 



219 F 

• Prix promotionnel y^il^B 
+ 20 F -port et emballage 



m 



Uniquement pour 

AMSTRAD 464 couleur 

et AMSTRAD 664 couleur 




90 F 



• Prix promotionnel 

EZ33 



+ 20 F 
port et emballage 



R. 



pour 1 1 mGUSSir en français et en mathématiques 
8 disquettes bien remplies : 2000 questions - 50 exercices 



pour trouver tout seul 




- Elaborés par une ôqupe d'enseignants et d'informaticiens. 

- Testés dans de nombreuses écoles de Loire- Atlantique (lire CPC n D 
35-Juin198B), 

- L'expérience montre qu'après 15 à 30 heures de travail la plupart 
des élèves font dans leurs dictées moins de 10 % d'erreurs sur l'en- 
semble des règles de la disquette. 

1 ) En cas d'erreur, l'ordinateur pose des questions qui aident à trouver 

la bonne réponse. Sa méthode lait appel au raisonnement plus qu'à la 

mémoire 

2] L'ordinateur chronomètre le temps de réponse. Si ce temps est 

supérieur au temps normal l'ordinateur l'avertit que s'il ne répond pas 

plus vite il continuera à faire des fautes dans ses dictées. 

3} Les résultais sont enregistrés pour encourager l'élève. Il peut voir 

que plus il travaille, plus le nombre de règles acquises augmente. 



ORTHOGRAPHE CE 



-VouF 


-«a 




- eu, oup, oue, out 


- pàjriel nome 


- accord desadiecîfe 




- accord du vert» - féminin en e 


-in, aii, hi 


-1, ils, «Iles 


- féminin des noms 


-i,is,y,iie.l 




-noms en le, ene 


-an,r*i,ani,am 


- peser t avoir. 


tre -plurieldesncmsenai 


-e.é.ê.ei 


-près, faits, vo 


-F*xief des noms eno 


- c, que, ck, S, SS, C 


-passe composé -tout, eus. tout? 






-leur, leurs 


-S.SS 


- eu, eux, eut. eue -impératif 


-3,3 


-on.om. ont, ont) -impératif avoir, être 


-on, ont 


-è, ee.er 


-imparfait 




-l,llle 


- LLi être, avoï 


-q.<iu.K i 


- les posseseh 




-F.FF.ph 






-cet, cette 


ma 

réf. 14401 CPC 







ORTHOGRAPHE CM 


-SouSS 


- ce. cet, cette, ces 


- partie passé avec 


-ou-où 


-éouer 


être 


-gougu-couqu 


- leur ou leurs 


- partie, passé avec 


- avoir au présent 


-sait, sais, c'est 


avar 


-aouà 


- peu, peut, peut 


-si, ci, s'y 


-on ou ont 


-près, prêt, pré 


- tout, tous, toute 


-son ou sont 


-accord du verbe 


-passés, ter. 2e çr 


-être au présent 


-sans, s'en, sens 


-passés. 3e gr. 


-feminin des noms 


- mais, mes, met 


-condion.preserr 


-ces eu ses 


-parttepe passé en i 


-condip. verte en 


- présent de llncfc. 


-partie, passé adjectif 


eler 


-ce ou se 


-quel, qu'ele 


-condt.p. verbe er 


-la. là. l'a, l'as 


- impératif présent 


eyer 


-imparfait de ffadic 


- part, passé etre-avoir 




-quand ou qu'en 
-tant, ten, temps 










f*/ 144J2 CPC 







ORTHOGRAPHE 4'-3» 


- imparfait, indc. 


- passé antérieur 


- accord p. passé 




- m S ê/et 


-cond. présent 


- imparfait indic. 


- impératif prés. 


- termina tsen mots 


- accord p. passé 




-ccod. passé 


- pas. v. inegul. 


-FipèraSfprês. 


—peur, noms camp. 


-Beev"ces/c'-s'e6t 


- prenons reiaifs 


-cond passé 


-passé simple hd. 


-...oir...eurefc. 


- terminasse»! mots 


-adj. de couloir 


-v.sncer-ger 


-verteasseor 


- mp. ou pass. s. 


- tonner les a dv. 


- accord p. passé 


- verbe ou p. passé 


-p.ptèsent/adj.v. 


-subt. présent 




- accord tout même 


-motfien té fê 


- accord nu-demi 


-vas passive 


- subi imputait 


- futur antMeuf 


-quel(s)/qu'elle 


- mage ou témirw 


-quelque quoique 


-cend. présent 


-v oarDcJ«rs 








- accord p. passé 


| 6129 



VOCABULAIRE CM 


-homonymes 


-pendu 


- placer dee mots 


-cen» aires 


-pendu 


-placer des mots 


-synonymes 


- placer des mots - homonymes 


-ssnsprop.lt gué 


- placer des mots - homonymes 


-préfixée 


-placer des mots -synonymes 


-suffi» es 


-cenrafres 


-e on (air es 


-familles 


-Bynonymee 


-racine des mots 




-cenf aires 


-sens expression 


-verbes/noms 


- placer des mo 


-dérivés 


-adjectifs 


-placer des mots -placer des mots 


-adverbes 


-placer des mots -racine des mots 


- noms de métiers 


-placer des mo 


-adverbes 


- adjecifsrVerbes 


- placer des mots -ecnialree 


-paronymes 


- placer des mots synonymes 


- placer des mots 
-placer des mots 


- ■ ■ 




6>ia 
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pour donner le moral 



I 

S" 




LES 4 OPERATIONS 



nMrJ'adrJrignda; 




•ne. CEI 


iIvmuZ 


-multp»cCE1iwwu2 






ttne ce: 




-munr,»; Cf^nrmu 1 






IMCCE2 


IVMu2 


-nu,H>pi.e.CE2™««Lj2 


-ta&aOïdOrlgncaS 








-mJtipleCV.IrwMu 


-ttUtd'KHilonaaB 














me CM 










IMC.CM 


nvMu2 


-mL(tipiic.CM2rw««.u 


-aMO'Btnïonae) 








-a™onCE2ni«eaul 


- aMagn CP nv«au 1 










- KKtOtri CP nwau 2 


-«•M'ai 




-Ovilion CM1 niyaau 2 










-<»maignCMtruvtau3 


- tfttori CEI wii 2 










-arfrttonŒ2niw*i1 










-BMrrjgnCË2nnwLj2 








-a«i(ionCMZfli<a(u3 








«.part 














-aM1IOnCM2niia«j1 

-akktonC*«2n,wfcr2 


















-BumcCEInnaul 








<5I2â 
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MATHEMATIQUES CM 


-écrire un MnA-encNt. 


-dé6miu»:*Cf.,atmp«'. 


-ra.rçemantdaidtai 


-nomb.pracwnrani 






-rar^janiarunoirio.. ant 


-cakul mant» 3 




-oaoompoaîrjan 
























-■om.Oa4,g,6.7r»mg. 






-MuttnKtMIprvfa**) 


-B*Œmixnmcn2 














- «i« to capanté 


-iéf»i! 






-maauieic* longueur 


—traction» ; ta jvilavss 




-miïtUic (prgor.*Ws! 










dura* 




- atcompoMion On Oéc 




-quowr.tat.raa» 














"**" 13 
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ORTHOGRAPHE 6 e -5* 


-■oui-onouorrt 


. M ^ M 


-«oury:ri«irïy 






-fMtsirquWw 






- «voirai *w 






- Dana, d'an, dail 




-ternit Ou ptrt pa 






- m'arma ;m'omrm gn 




- impartait oaltokatr 
















- quand ou qu'an 




-fer. leuri 






-imotmstoréMPl 










-l'a. la. l'a», la 


-JiulStouptjltM 






-•arombiea 






- «uojsnelf p*amt 










-mptom 








*-■;:■< 
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CONJUGAISON 



-révincn : ater, faVat. 
-»rt»aa<ir3»rnga 
-voir [3 Bm pi) 



- snpio ilt-aist -imparfait* an ir -(Sua-qua-partail 
-lilurï.inti -imparfait a ivara -impararrtptéaent 
-tutuv.awi - imparfait flrvara -aubpnbcpréaaril 
-tuofï.ttr» -i*ftion impart -confl.praaBnl 
-i+naiontulw - impératif prêtant - auqoretf p-aiorrt 

- paaié c v. an *r - impératif préaant -lArbaienipv «r ua. 

- paaaa c v. arar -impéntitpré«nt -wtmancvBar 

- p agaa c v. «* - forma partopa paaié 

-aiar(3*nipi) - praaarrt ind. 



IraUjrut) 






180 F 

la disquette 3'' 



pour 
464/664/6128 
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M£Att MATE/? M £Ue '_ 
ETPRMA/M 



EDUC-MATERNELLE-1. 

NIVEAU4à6ANS 



MC15CPCdlsk200F 



EDUC-MATERNELLE-2. NIVEAU 
MATERNELLE CP. 



MC18CPC disk 200F 



LWor 



n esprit d'onolyse el découvre 
■'5 oporen lissages i 
âge, le sens de le 



■ègles qui 

I de l 'écriture, le -e 



l",iii'*H,'l^,"HEl 

MC0!CPCdisk2C0F 



MC210CPCK7t70F 



élémentaire. 

- Ronger des nombres en ordre cotisant et décoissont - Com- 
parer des nombres (supérieur intérieur) sommes produfls - Comp- 
ter pas à pas ( 1 , 2, 5. 10. 20, 40...) - Calculs sur les operc- 
ilons élémentaires (tableau de oaubie entrée] - Compter fa mon- 
naie - Lire el afficher l'heure - Déplacer une tortue (exécuter et 
retrouver] -Symétries axiales. 



MC02CPCdlsk250F 
MC2OOCPCK72 0OF 



Ce logtcie comprend des mooVes su' les cakj s looéio - on), 
l'ocons jog o géc"V"-e |ïyiéir e> i.i- ■epeeor'hono'Té avec 
poss-oh* de consfueuor de hgu*« ) - Opéronons verticales 



- sur des parties de reciargles, de camemberts - Itacllons équi- 
valentes - numéroteurs d'une fraction ... 

- Calculs d 'oires : 

- carié ■ rectangle ... avec explication des lamules en cos d'er- 



- CpIcuIs de volume 

- Symétrie (centrale et axiale) 

- Suites proportionnelles 

- Pourcentages 



FRANÇAIS-SONS. NIVEAU CP CEI CE2 



MC12CPC disk 200F 
MC208CPCK7170F 



choisir dons des 



3 - Sélectionner dons des phrases les mots ayonl les sons indi- 

Une séné de sons avec niveou de difficulté progressif peuvent 
convenir aux élèves oes closses de CP pour ''option l et aux 
élèves de CEI CE2 pour les options 2 et 3. 



Ce logiciel perme' d'apprendre ies règles p- -ç-po es de l'ortho- 
graphe en complétant des phrases (19 regese» ô ou o. or- ou 



A chaque Foule, une explication est donnée à l'élève sous la 
forme d'une question de remplacement qui lui permettra de com- 
prendre son erreur. A tout moment, cette règle pourra être affi- 
chée pour explication. 



FRANÇAIS-CM. NIVEAU CM1 
CM2 SIXIEME. 



MC13CPCdisk200F 



1 - Dictée : celte option permet o un instituteur ou à un porenl de 
dicter un texte à l'élève evec correction automatique oprès une 
ou deux foutes sur chaque lettre (ou choix] et avec comptage des 
foules 
Un lichies 






îauCMl CM2de20dicl 

ie option de création pem 

?clu r e permet ègolemenl d 



M des dict 



efi- 



2 - Participes passés avec ETRE et AVOIR : Celte option permet 
d'apprendre à accorder les participes passés avec les verbes 
ETRE et/ou AVOIR avec sujet, complément d'objet direct ou Indi- 
reet, mosculin ou féminin, singulier ou pluriel 

A chaque faute, une explication du corrigé sera visualisée. 

Un fichier de phrases est également fourni, ainsi qu'une option 

permelonl la création de ses propres fichiers d'exercices. 

3 - Can[ugaison : ce module permet à l'élève d'opprendre à 
conjuguer les verbes des 3 groupes aux temps de son choix (im- 
parfait, fulur anlèrieur, présert...) sous la forme de phrases à 
compléter . 

A chaque faute, une expllcotion sera visualisée et le comptage 
de points opparaîtra a la fin de l'exercice. 



GEOGRAPHIE-PRIMAIRE. NIVEAU 
PRIMAIRE. 



MC19CPCdisk200F 



Le Soleil - La Terre - Les points cardinaux - tes saisons - Le n 

- Les cours d'eau et les mers en Fronce - Les ports en fia 

- Les grandes villes - Les pays frontaliers. 



IIJAJII:UJ«IBIJ.!limH:lilJII^J 

MC20ÇPCdlsk200F 



logiciel permettant de fomiliorlser les tous jeunes lecteurs à la r( 
constitution, le compréhension ei la sltuclute d'une phrase. 



tlfVEAtt 

secof/DA/ee 



"'■l*'-l.ïlW''4-ga 

.-MC17.CPC.dl8k200F 



Ce logiciel traite des notions de fonc 
de mots constituant la phrose (sujet, « 

- Apprentissage avec rappel de court 

- Révision générale 
Les 220 phases contenues dans ce log 
2 nlveoux et couvres plus de 1 400 questi 

rnCM2. 



ons el nature des groupes 
rbe, complément...]. 
adapté à chaque situation 



MATHS-6. ALGEBRE 
POUR LA CLASSE DE 6EME 



MC03CPCdlsk20QF 
MC201CPCK7170F 



- Ooérai.om . - X / - Frottl-j-s - Co culs doires Colculs SU 
es .-p o: .s Poi.re'ioges avec g'cohismes - Sj "es ciaçxyr.nt 
nettes avec u/ojhs-* - Symé"'es othogonolei. 



MATHS-5. NIVEAU 5EME 
(NOUVEAU PROGRAMME) 



MC21 CPCdlsk200F 
MC202CPCK7170F 



MATHS-54. ALGEBRE 
POUR LES CLASSES DE 5EME ET 4EME. 



MC04CPC200F 



- Multiples et diviseurs d'un entier - Nombres premiers - Puis- 
sances d'un entier naturel - Décomposition d'un entier nalutel 

- P.G.C.D. et P.P.C.M. - Colculs algébriques 

- Rotlcnnels [simplifications e! opérations de fractions) - Equa- 
rlons et inéquations dans R 



MATHS-3. ALGEBRE 

POUR LA CLASSE DE 3EME. 



MC05CPÇdisk200F 



Constructions de vecteurs - Calculs sur les ora 'es - Systèmes 
néoires 2,2 - Régionnemenl du plan - Calculs sur les racines 
orrées ■ Notions de trigonométrie. 



EQUATIONS. ALGEBRE POUR LES 
CLASSES DE 3EME ET 2NDE. 



MC06CPCdlsk2COF 
MC205CPCK7170F 



MATHS SECOND CYCLE- 1 . NIVEAU 
SECONDES A TERMI 



MC07CPCdisk250F 
MC206CPCK7200F 



- Equan-j'is d.i second Opqrè avec iwcTprévjnor ^mph-'oue Cdu-be 
Y - f(X] o*ec cho» au eoére el des ur tés - l-'égra^ pa.- fa mé- 
thode oes rn-iuryics avec i.tijitiono'i yrup- que et exercices 

- Sui'es récurrentes o«t graphisme - Fonctions réciproques 



MATHS SECOND CYCLE-2. 

ALGEBRE POUR LES CLASSES DE 

SECONDES A TERMINALES. 



- Imoges oo' oppl cotior o" ne Coi.'be s nvec opitons |dorl 
ho'dcopy! - Courbes superposées - Courbes défîmes par mor- 
ceaux -r'om.les du COu'bei -Cou'bes panes (cinémal que] 

- Coutoes aeiinies par une intégrale 



GEOMETRIE PLANE. NIVEAU 4EME 
A TERMINALE 



MCWÇPCdlsMO OF 

Deux og'Ces accomoognès d'explicolions détaillées : 
- Un ulililai'e de dessin géomèlrique pour iracer points, droiles. 
segmenis et cercles, ie classique -TRACER à !o règ'e el au com- 
pas» accompagné de commentaires et ae rous les résultais de 
géométrie anolylique. Une figure peui êlre sauvegardée ou Imprî- 



Huil exemples classiques 



nstrudions géométriques accom- 
pagnenl cet utilitoire (bissectrices, tangentes...). 
- Une élude par le desslr des 'SAN S FORMATIONS GEOME- 
TRIQUES [translations, homolhélie, rololion, symétrie axiale el cen- 
trale, similitude) sur des figures simples [carré, triangle, losonge...). 



ESPACES ET SOUDES. NIVEAU PREMIERE 
ET TERMINALE. 






MC10CPC disk 200F 



Dessin géométrique aans l'espace : Utilitaire de dessin pour Ira- 
cer points, droiles, segmenis el plans accompagnés de commen- 
taires évenluels avec possibilité de sauvegarde et d'Impression. 
la partie importante esl lo perspective choisie - La perspective 
•fil de fer» qui permei de refaire le irocè sous des angles diffé- 
rents - lo perspective avec les plans colorés qui donne une meilleure 

Une représentation de SOUDES dans l'espace avec : Entrée du 
solide de votre choix - Impression de fichiers de données - Choix 
des ongles de perspectives - Des exemples de solides (solides 
ae 3 lATON, étoile de KLEPER...) 



MCI4CPCdisk200F 



Ce logiciei compreno une pottie GuestiLiiiiuii' 

et une partie lisie de wxabulaire. 

Q.C.M. 

Permet de tester ses connalssonces 

- 3 fichiers de culture générale 

- I fichier sur lo Révolution françoise 

- I fichier sur la langue angloise 
VOCALIST 

- 3 fichiers ANGLAIS-FRANÇAIS 

Il est possible de créer ses propres Q.C.M. s 
que ses propres VOCALIST sur les langues. 



ON DE COMMANDE 



A expédier à : Editions SORACOM 
La Haie de Pan - 35 1 70 BRUZ 



DESIONATION 



Abonné 
Non abonné 




Pour chaque article, entourez le ou les n° choisis. 
ANCIENS Nos AMSTAR & CPC 

H" 26-27-28-29-30-31 -32-33-34 
35-36-37-38-39 

DISQUETTES AMSTAR & CPC 

N° 20-21 -22-23-24-25-26 

(une disquette réunit 2 numéros consécutifs d'Amstar & CPC] 

ANCIENS Nos AMSTAR 

N-5-6-8-9-10-11 
12-13-14-15 
16-17-18-19-20-21 
^22- 23 -24 -25 

DISQUETTES AMSTAR 

N° ! |du n° 1 ou 8 inclusl - N° 2 (du n" 9 au 1 6 inclus) 
N D 3 (du n° 17 au 25 inclus) 

ANCIENS Nos CPC 

N" 10-11 -13-16-18-20-23-24-25-26 
27-28-29-30-31 -32-34-36-37 

ANCIENS Nos HORS-SERIE CPC 

N" 4-6-8-9-10-11 -12-13-14-15-16 
N" 17-18-19 

DISQUETTES CPC ET DISQUETTES HORS-SERIE CPC 

N° 1-2-3-4-5-6-7-8-9- 10-11 -12- 13- 14- 15- 16-17 
18-19 (une disquette réunit 2 numéros consécutifs de CPC) Abonné 
HS1 - HS2 - HS3 - HS4 - HS5 - HS6 - HS7 - HS8 - HS9 - HS1 - HS1 1 
HS12-HS13-HS14-HS15-HS16-HS17-HS18-HS19 Non abonné 

ABONNEMENT 6 DISQUETTES (non rétroactif) 

DISQUETTES "ARCADES" Téléchargement AMSTRAD CPC 
Câble pour téléchargement 



LOGICIELS EDUCATIFS - LIVRES - DIVERS 



25 F (unilé) 

26 F (unité) 



110 F (unilé) 
140 F (unilé) 



1 5 F (unilé) 
1 8 F (unité) 
20 F (unité) 
22 F funilé) 



110 F funilé} 



25 F (unilé) 



1 5 F (unilé) 
1 7 F (unité) 



110 F (unilé) 

140 F (unilé) 

600 F 

60 F 
89 F 



Franco 
Franco 



Franco 
Franco 

Franco 
Franco 
Franco 
Franco 



Franco 
Franco 



Franco 
Franco 



5F 

5F 
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Forfait port + 10 F par logiciel et 10% pour livres 



Pour tout envoi par avion : pour DOM-TOM et étrange 
tfor* : " 



□ Facultatif : recommandé + 1 F par commande 
MONTANT GLOBAL 



Je joins mon règlement : Lt chèque bancaire 



PAYEZ PAR CARTE BANCAIRE 

I I I I I I I I I I I I I LJ L 



Date d'expiration i | i | Signature 

(inscrire les numéros de la carie, la date et signer) 



Date 



Signature 



que postal 


□ mandat 


Nom: 
Adresse : 


Prénom : 




Code Postai : 


Villa : 
ECRIRE EN MAJUSCULES 



Afin de faciliter le traitement des commandes, nous remercions notre aimable clien- 
tèle de ne pas agrafer les chèques, et de ne rien inscrire au dos. 



Commttidtt : La commande doit comporter Sus les renseignements demandes sur le bon de commande (désignation ou référence si celle-ci existe}. Toute absence de précisions est sous la responsabilité de rachetttir. La vente es 

conclue des acceptation du bon de commande pal notre société, sur les arfctesdi6pon blés uniquement. 

Les prix .-Les prix indices sont valables du jour de la parution du catalogue jusqu'au mois suivant ou au Jour de parution du nouveau catalogue, sauf erreur dans le Bbelé de nos tarifs au moment de la (abricalon du catalogue, et de 

variation de prbt importante des fournisseurs. 

Livraison : La liaison Intervient après lereglement Les délais de Jrvraisw étant de fOâ 15 jajfs environ SORACOM ne pourra ebete^ 

Transport; La marchandise voyage aux risques et périls du destinataire. La livraison se faisant par colis postal ou par transporteur. Les prix indiquée sur le bon de commande sont valables sur touft la France métropolitains, ♦ 20 F par 

article pour Outre- Mer par avion et au-dessusde 5 kg nous r^^ 

l'envoi en recommandé. A rôceplon des paquets, toute detericralcn doit être signalée. 



1 disquette 

de téléchargement 

+ 

30 F d'économie sur 

l'achat des disquettes CPC 

+ 

1 2 F de réduction 

abonnement 

+ 

5 % de remise sur 

le catalogue SORACOM 



ABONNEZ-VOUS 
A CPC HS 



OUI 



Nom : 

Adresse : 

Code postal 
Date 



OFFRE EXCEPTIONNELLE 
pour 6 numéros (T an) 

90 FF 

je veux bénéficier de l'offre exceptionnelle d'abonnement à CPC HS. Je 
désire recevoir ma disquette téléchargement ARCADES à l'adresse suivante: 

Prénom : 



.Ville: 



Signature : 



Je joins à cet envoi, mon règlement de 90 F au nom de : 
Editions SORACOM - La Haie de Pan - 351 70 BRUZ. 



(Les abonnements ne sont pas rétroactifs} 




DISC CPC 




ANCIENS NUMEROS 




J0Â-- 



r • HORS-SERIE 

□ n° 4, 6, 7, 8, 9, 10, 11, 12, 13, 14, 
15, 16, 17, 18 



_15F 



• DISQUETTES HORS-SERIE 

□ HS 1,2,3,4,5,6,7,8,9, 10, 
11, 12, 13, 14, 15, 16, 17, 18_ 



JI40F 



Chaque disquette comporte tout |M programmée du n" hors-ssrls cor- 
respondant. Us abonnés a CPC bénéficient du taril unitaire da 110 F 
pour las disquettes. 



Nom: 

Adresse: _ 
Code postal : 
Date: 



Prénom : 



Entourez lê(e) numém(M) chotel*. 



_ Ville : 

Signature 



Merci d'écrire en majuscules. Ci-joint un chique IbeM a l'ordre des Editons SORACOM. Retournez lefs) couponfs) ou une photocopie à Editions SORACOM - La Haie 
de Pan -35f 70 BRUZ. 3 g 




Media Box Disquettes 5"1/4 

182x178x348 mm 
Réf. 310.501.1 

H.ifiliU.1 

pour 70 disquettes, livré 
avec séparations et index 



Media Box 
Cassettes 
Vidéo (L) 

222x135 

x348 mm 

Réf. 3 1 0.540.0 

MJJIrMiJ 

pour 9 casettes 

VHS, V2000, Betamax 




Media Box Mini Cassettes 

148x91x348 




Media Box 
Disquettes 
T-31,7 



pour 1 50 disquettes 




Réf. 310.503.3 

oour 16 mini 

iiii mfl i i 




Media Box 
Compact Disc 

48x135x348 mm 
Réf; 310.50 2.6 
r/'i-f jj/ffïïj 
pour 1 3 compacts dises simples 



Media Box 
Data Cartridge 

222x135x348 mm 
r^°* Réf. 310.518.7 

MJJJJ.ffl 

'pour 1 1 Data Cartridges 
type 3 M 




Media Box 
Cassettes Vidéo 
VHS-C 




■'?& Media Box 
r Cassettes 
V Vidéo 8 

148x91x348 mm 
Réf. 310.531.6 

pour 1 2 cassettes 




\hvtihbU 



Media 
Box 

Compact 
Disc Multi 

148x177 
x348 mm 
Réf. 100.525.0 
pour 23 CD simples 
ou 1 1 CD doubles 



Media Box 
Photo 




222x 

x348 mm 

Réf. 310.501.9 

pour 1 40 tirages 

format maximum 13x18 plus 



Mod ule serrure 

EZHŒ 

{bien indiquer la boîte) 



Plaquettes 
couleur 

(lot de 3) 

UB ■ 
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Exemple de 
" =es modules 



Voir bon de commande page 
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LES MEILLEURS LOGICIELS PUBLIES DANS AMSTAR & CPC 

ET CPC HORS SERIE 






Simple, rapide, efficace : 

Téléchargez les listings publiés dans 
le mensuel Amstar & CPC et dans le 
bimestriel CPC Hors Série. 
Il vous suffit pour cela de notre logi- 
ciel ARCADES, et d'un câble de liai- 
son minitel-CPC que nous pouvons vous 
fournir. 

Sur 36 15 Arcades, des jeux et des 
utilitaires, du son et du graphisme. 



PLUS DE 80 
PROGRAMMES 

A VOTRE 
DISPOSITION 



LA COMMUNICATION 
C'EST NOTRE METIER 

Voir bon de commande page 37 



